Hi Eddie. Here is some code I whipped up for you. This uses the CUSTOMERS table in the NORTHWIND mdb:
Code:
Private Sub Combo1_DropDown()
'declare objects
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
'clear existing list
Combo1.Clear
'open recordset of data that we want to get, using the current customer id
rs.Open "Select * from Customers where CustomerID = '" & Me.Adodc1.Recordset.Fields(0).Value & "'", Me.Adodc1.Recordset.ActiveConnection
'populate dropdown box
Do Until rs.EOF = True
Combo1.AddItem rs.Fields("CompanyName").Value
rs.MoveNext
Loop
End Sub
Tom