bueno colocale la librería Data Objects 2.5
y coloca este codigo en proyecto nuevo
Código:
Dim VarConexion As Connection
Dim Rs As New Recordset
Private Function verdatacombo()
Dim Dir As String
Dir = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\prueba1.mdb"
Set VarConexion = New Connection
VarConexion.Open Dir, Usr
Set Rs = New Recordset
Rs.Open "select pro_id,pro_nombre from producto", VarConexion, adOpenStatic, adLockOptimistic
Set DataCombo.RowSource = Rs
DataCombo.ListField = "pro_nombre"
DataCombo.BoundColumn = "pro_id"
End Function
Private Sub Command2_Click()
verdatacombo
End Sub
Private Sub DataCombo_Change()
MsgBox DataCombo.BoundText
End Sub
espero te sirva..