Ahi te dejo un codigo solo trata de entenderlo y adaptalo es sencillo
Previamente debes agregar la referencia Microsoft active x dataobject 2.x library para que funcione la conexion, busca info sobre eso.
Código:
Dim rsProd As Recordset
Public cn As New Connection
Private Sub Command1_Click()
'Hace tu conexion a la Base de datos
'En este caso es para access 2003 busca info sobre la conexion para 2007
cn.CursorLocation = adUseClient
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\Data01.mdb;Password=;Persist Security Info=false"
End Sub
Private Sub Command2_Click()
'Creas tu recordset
Set rsProd = New Recordset
rsProd.Open "SELECT * FROM producto where codprod='" & txtbusqueda & "'", cn, adOpenStatic, adLockOptimistic
'Set DataGrid1.DataSource = rsProd
Text1 = rsProd(0) 'o puedes colocar el nombre del campo asi rsProd("codprod")
Text2 = rsProd(1)
Text3 = rsProd(2)
End Sub