Hola Angel, mira lo primero que debes de hacer es lo siguiente, definir la forma como estas trabajando, este esjemplo es para el modo de acceso DAO: Primero debes direccionarte a Proyectos/Referencia y buscas alli Microsoft DAO 2.5/3.5, luego haces lo siguiente:
esto lo puedes declarar en el general o dentro del evento que vallas a trabajar.
Dim DB as Database
Dim RS as Recordset
luego dentro del evento colocas lo siguiente
set DB=dbengine.opendatabase( app.paht & "\ nombredb.mdb"
set RS=db.openrecordset(nombretabla o sql)
y utilizas el metodo findfirst o una consulta sql asi:
set DB=dbengine.opendatabase( app.paht & "\Prueba.mdb")
sql="select * from Clientes where nombre=' " & TxtCliente & " ' "
set RS=db.openrecordset (sql)
y aqui simplemente referencias la busqueda asi:
if rs.eof<>True then
txtid=rs.fields("IdCliente")
txtnombre=rs.fields("Nombre")
else
Msgbox("Cliente no existe")
end if
Cualquier otra inquietud comunicamela por correo que si esta en mis manos con gusto te colaborare
cordialmente
Andres Escobar
Costa Rica
