Te paso el siguiente codigo que te puede servir de ejemplo:
Private Sub Comando12_Click()
Dim base As Database
Dim tabla As Recordset
Set base = OpenDatabase("c:\rodolfo\Programacion.mdb")
Set tabla = base.OpenRecordset("tabla1", dbOpenSnapshot)
ingreso = InputBox("Ingreso")
tabla.MoveLast
tabla.FindFirst ("Id='" & ingreso & "'")
If tabla.NoMatch Then
MsgBox ("no esta")
Else
Ide.SetFocus
Ide.Text = tabla.Fields("id")
Nome.SetFocus
Nome.Text = tabla.Fields("Nom")
Suee.SetFocus
Suee.Text = tabla.Fields("Sue")
End If
End Sub
En este caso genere un formulario vinculado a la tabla1 de mi base "Programacion" ubicada en el directorio c:\rodolfo.
La base tiene tres campo llamados, Id, Nom y Sue
Al formulario agregué tres cuadros de texto independientes llamados Ide, Nome y Suee, y un boton al cual le puse el código que ves arriba
Esto te muestra los datos que matchean con el texto que ingreses en la caja de entrada (InputBox), en el campo Id
Saludos y espero que te sirva
