mira yo tengo una base de datos pero lleno los datos en un listbox intenta aver si te funciona en el combo
agrega un textbox y vinculalo al control data y con este codigo, si no te funciona, mandame un mail y te mando mi codigo fuente para que lo analices
Private Sub Form_Activate()
'******************************************************'
'///****averiguar cuantos registros activos hay en la base de datos****\\\'
'******************************************************'
Data1.Recordset.MoveNext
X = Data1.Recordset.RecordCount
Data1.Recordset.MoveFirst
'*************************************************************'
'///****llenar el list con los nombres de los productos****\\\'
'*************************************************************'
For c = 1 To X
If Not Data1.Recordset.EOF Then
List1.AddItem Text1.Text
Data1.Recordset.MoveNext
End If
Next
Data1.Recordset.MoveFirst
REGACT.Caption = X & " registros activos"
End Sub