El codigo que te di fue el primero q encontre aqui esta uno mejor esta con recordset
Código:
Dim dbConex As New Connection
Dim rsProd As Recordset
Private Sub Form_Load()
'conexion a la base de datos
dbConex.CursorLocation = adUseClient
dbConex.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\tuBasedeDatos.mdb;Persist Security Info=False"
'Llena el DataCombo1 con los nombre de los productos
Set rsProd = New Recordset
rsProd.Open "SELECT * FROM producto", dbConex, adOpenStatic, adLockOptimistic
'********************
DataCombo1.BoundColumn = "CodProd"
DataCombo1.ListField = "NomProd"
Set DataCombo1.RowSource = rsProd
'*******************
End Sub
Private Sub DataCombo1_Change()
'Nos vamos al primer registro
rsProd.MoveFirst
'Hacemos la busqueda mediante el codigo
rsProd.Find "CodProd ='" + Trim(DataCombo1.BoundText) + "'"
If Not rsProd.EOF Then
Text1 = rsProd.Fields("NomProd")
Text2 = rsProd.Fields("PrecioVenta")
End If
End Sub