Cita:
Iniciado por Dalr 
upps gracias de todos modos......
Primero agrega la referencia Microsoft ActiveX data Objects
luego...
Código:
Dim oConexion As New ADODB.Connection
Dim rsRecordset As New ADODB.RecordSet
Dim strSql As String
oConexion.Provider = "Microsoft.Jet.OLEDB.4.0"
oConexion.Open "c:\maseDatos.mdb"
strSql = "Select * From Tabla where CODIGO = '" & Text1.Text & "'"
rsRecordset.Open strSql, oConexion, adOpenStatic, adLockOptimistic
If rsRecordset.RecordCount <> 0 Then
.........aki rellenas tus campos.........
Text2.Text = rsRecordset(0)
Text3.Text = rsRecordset(1)
..................................................
Endif
rsRecordset.Close
oConexion.Close