add drop down list to data grid

So basically all I have to do then is pass a reference to the listbox, then have that listbox appear for the column when the button is clicked?
Sounds too easy to be true! I will try this and get back to you. Thank you.

I can't seem to get the button event to show the listbox..
I have a grid on the form and  a listbox.
It shows the button, and it shows the listbox with the correct data from the database..what am I doing wrong here???

----------------------------------------------------------

Option Explicit
Dim intColIdx As Integer
 'This will contain the index for the current  cell in the dbgrid
 Dim adoPrimaryRS As Recordset
Dim blnListShow As Boolean 'is the list showing or not Dim WithEvents adoPrimaryRS As Recordset
Dim mbChangedByCode As Boolean
Dim mvBookMark As Variant
Dim mbEditFlag As Boolean
Dim mbAddNewFlag As Boolean
Dim mbDataChanged As Boolean

Private Sub Form_Load()
Dim db As Connection
  Set db = New Connection
  Dim MyColumns As Columns
  db.CursorLocation = adUseClient
 'db.Open "PROVIDER=MSDataShape;Data PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Xtremeblue\Desktop\Backups\SS2X.mdb;"
db.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Xtremeblue\Desktop\Backups\SS2X.mdb;"

  Set adoPrimaryRS = New Recordset
adoPrimaryRS.Open "SELECT DISTINCT EmployeeID FROM OrderDetails WHERE EmployeeID IS NOT NULL", db, adOpenForwardOnly
  'adoprimaryrs.Open "SHAPE {select AllTotals,CitySalesTax,CountySalesTax,CustomerID,Discount,EmployeeID,InvoiceID,OrderDetailID,ProductID,ProductName,Quantity,SalesPrice,SalesTaxCity,SalesTaxCounty,SalesTaxState,ServiceID,ServiceName,ServicePrice,StateSalesTax,SumOfTax,SumOfTax1,SumOfTax2,TaxTotal,TicketDate,TicketID,TypeService,UnitPrice,UnitsInStock,WholesalePrice from OrderDetails} AS ParentCMD APPEND ({select AllTotals,CitySalesTax,CountySalesTax,CustomerID,Discount,EmployeeID,InvoiceID,OrderDetailID,ProductID,ProductName,Quantity,SalesPrice,SalesTaxCity,SalesTaxCounty,SalesTaxState,ServiceID,ServiceName,ServicePrice,StateSalesTax,SumOfTax,SumOfTax1,SumOfTax2,TaxTotal,TicketDate,TicketID,TypeService,UnitPrice,UnitsInStock,WholesalePrice from OrderDetails } AS ChildCMD RELATE EmployeeID TO EmployeeID) AS ChildCMD", db, adOpenStatic, adLockOptimistic
blnListShow = False 'initialize
  'Dim oText As TextBox
  'Bind the text boxes to the data provider
  'For Each oText In Me.txtFields
    'Set oText.DataSource = adoPrimaryRS
 ' Next
List1.AddItem "" 'add a blank item
Do While Not adoPrimaryRS.EOF  'populate the list box
   List1.AddItem adoPrimaryRS!EmployeeID
   adoPrimaryRS.MoveNext
Loop
adoPrimaryRS.Close
  Set DBgrid1.DataSource = adoPrimaryRS '("ChildCMD").UnderlyingValue
Set MyColumns = DBgrid1.Columns 'create Columns Object
MyColumns.Item(0).Alignment = dbgRight 'right align column data
MyColumns.Item(0).AllowSizing = False  'disable changing of column width
MyColumns.Item(0).Locked = True 'don't allow it to be selected
MyColumns.Item(0).Button = True 'display button when selected
MyColumns.Item(0).Button = True
MyColumns.Item(0).Width = 1000  'set column width to 2000 pixels
  mbDataChanged = False
End Sub

Private Sub DBGrid1_ButtonClick(ByVal ColIndex As Integer)
Dim intTop As Integer
intColIdx = ColIndex
If blnListShow = False Then 'if the list is not showing then...
blnListShow = True
List1.Left = DBgrid1.Columns(0).Left + 360
intTop = DBgrid1.Top + (DBgrid1.RowHeight * (DBgrid1.Row + 2))
 List1.Top = intTop
 List1.Width = DBgrid1.Columns(0).Width + 15
                     List1.Visible = True
                  List1.SetFocus
Else 'if the list is show, hide it
             blnListShow = False
              List1.Visible = False
End If
End Sub


Private Sub List1_Click()
'Set adoPrimaryRS = New Recordset
'Set List1.DataSource = adoPrimaryRS
DBgrid1.Columns(intColIdx).Text = List1.Text
'DBgrid1.Columns(0).Text = List1.Text
Set adoPrimaryRS = New Recordset
Set List1.DataSource = adoPrimaryRS
 'set the value of the dbgrid
  List1.Visible = False 'hide the list
        End Sub

                      Private Sub List1_LostFocus()
                          blnListShow = False
                          List1.Visible = False
                      End Sub

Note: shaping of the recordset was removed

Try
List1.ZOrder 0
before
list1.setfocus

If you place a breakpoint into the buttonclick event, do you reach it?

Now I get an invalid procedure code or runtime #5

On which line?

Looks like your listbox is not enabled or visible.

This is working on my PC:

VERSION 5.00
Object = "{CDE57A40-8B86-11D0-B3C6-00A0C90AEA82}#1.0#0"; "MSDATGRD.OCX"
Begin VB.Form frmAssembly
   Caption         =   "Assembly"
   ClientHeight    =   6540
   ClientLeft      =   1104
   ClientTop       =   348
   ClientWidth     =   9096
   KeyPreview      =   -1  'True
   LinkTopic       =   "Form1"
   ScaleHeight     =   6540
   ScaleWidth      =   9096
   Begin MSDataGridLib.DataGrid DataGrid1
      Height          =   3972
      Left            =   240
      TabIndex        =   1
      Top             =   120
      Width           =   7932
      _ExtentX        =   13991
      _ExtentY        =   7006
      _Version        =   393216
      HeadLines       =   1
      RowHeight       =   15
      BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851}
         Name            =   "MS Sans Serif"
         Size            =   7.8
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
         Name            =   "MS Sans Serif"
         Size            =   7.8
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ColumnCount     =   2
      BeginProperty Column00
         DataField       =   ""
         Caption         =   ""
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   1033
            SubFormatType   =   0
         EndProperty
      EndProperty
      BeginProperty Column01
         DataField       =   ""
         Caption         =   ""
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   1033
            SubFormatType   =   0
         EndProperty
      EndProperty
      SplitCount      =   1
      BeginProperty Split0
         BeginProperty Column00
         EndProperty
         BeginProperty Column01
         EndProperty
      EndProperty
   End
   Begin VB.ListBox List1
      Height          =   1392
      Left            =   4680
      TabIndex        =   0
      Top             =   4440
      Width           =   1332
   End
End
Attribute VB_Name = "frmAssembly"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private rstData As ADODB.Recordset

Private Sub DataGrid1_BeforeColEdit(ByVal ColIndex As Integer, ByVal KeyAscii As Integer, Cancel As Integer)
    ' BeforeColEdit is called before the grid enters into
    ' edit mode.  You can decide what happens and whether
    ' standard editing proceeds.  This allows you to
    ' substitute different kinds of editing for the current
    ' cell, as is done here.

    If DataGrid1.Columns(ColIndex).DataField = "Field2" Then

'        ' Let the user edit by entering a key.
'        If KeyAscii <> 0 Then Exit Sub

        ' Otherwise, cancel built-in editing and call the
        ' ButtonClick event to drop down List1.
        Cancel = True
        Call DataGrid1_ButtonClick(ColIndex)
    End If
End Sub

Private Sub DataGrid1_ButtonClick(ByVal ColIndex As Integer)
' Assign the Column object to Co because it will be used more than once.
Dim Co As Column

    Set Co = DataGrid1.Columns(ColIndex)

    ' Position and drop down List1 at the right edge of the current cell.
    If ColIndex = 1 Then
        With List1
            .Left = DataGrid1.Left + Co.Left
            .Top = DataGrid1.Top + DataGrid1.RowTop(DataGrid1.Row)
            .Width = Co.Width
            .Visible = True
            .ZOrder 0
            .SetFocus
        End With
    End If
End Sub

Private Sub DataGrid1_Scroll(Cancel As Integer)
    List1.Visible = False
End Sub


Private Sub List1_DblClick()
    ' When an item is selected in List1, copy its index to the
    ' proper column in DBGrid1, then make List1 invisible.
    DataGrid1.Columns("Field2").Text = List1.List(List1.ListIndex)
    List1.Visible = False
    DataGrid1.SetFocus
End Sub

Private Sub List1_LostFocus()
    ' Hide the list if it loses focus.
    List1.Visible = False
    DataGrid1.SetFocus
End Sub

Private Sub Form_Load()
    Set rstData = New ADODB.Recordset
    With rstData
        .Fields.Append "Field1", adInteger
        .Fields.Append "Field2", adVarChar, 20
        .Open
       
        .AddNew Array("Field1", "Field2"), Array(1, "T1")
        .AddNew Array("Field1", "Field2"), Array(1, "T2")
        .AddNew Array("Field1", "Field2"), Array(1, "T3")
        .AddNew Array("Field1", "Field2"), Array(1, "T4")
        .AddNew Array("Field1", "Field2"), Array(1, "T5")
    End With

    With DataGrid1
        Set .DataSource = rstData
       
        With .Columns(1)
            .Button = True
            .Width = 1500
        End With
    End With
   
    With List1
        .Visible = False
        .AddItem "T1"
        .AddItem "T2"
        .AddItem "T3"
    End With
End Sub

It's not working when connected to the recordset...

I see in your first sample that your column is locked!

Remove this line:
MyColumns.Item(0).Locked = True 'don't allow it to be selected

I unlocked it and it still didn't work....
Here is a link to what I am trying to do. There is a small zip file you can download with the database actually in it.
I checked the database and the field EmployeeID is updateable as it is text and can have duplicates...
I have no idea of why this is not working.
http://www.jamiegrossfeld.com/helpme.htm

Well, I found the problem and the solution...

What was it?

will you now close this question?

Yes, I think so..

I really think that I deserve the points. mindserve ask how to add a combo to a grid control and I answered that question.

No, I asked the question but expected it to work..your answer didn't work and my answer did work and I posted this ..
you don't deserve the points In my opinion.
In that case, anyone could post any answer whether
it worked or not...just post any answer and get the points.......