duda visual b.

[Sabroso]

Hola, espero haberte entendido aquí te mando una busqueda sencilla, en la cual haces la comparación de tu texbox a la BD.


private sub buscar()

set BASE = OpenDatabase("C:\nombres.MDB", False, False)
set reg = BASE.OpenRecordset("Nombres",dbOpenDynaset)


busca ="nombre ='" & text1.text " '"
reg.FindFirst Busca
if reg.NoMatch Then
MsgBox "No SE ENCUENTRA"
Exit Sub
Else
text2.text = reg ("nombre")
text3.text = reg ("direccion2)
-
-
End If
End Sub

la variable busca la declaras, en este caso como string

Espero te sirva.