Eso lo podes lograr con un SQL.
con DAO:
Código:
Dim bd as DataBase
Set bd = OpenDataBase(ruta)
Set Data1.RecordSet = bd.OpenRecordSet("SELECT * FROM empleados WHERE codigocliente LIKE '" Text1 "'")
con ADO
Código:
RecordSet.Open("SELECT * FROM empleados WHERE codigocliente LIKE '" Text1 "'")
¿Que usas ADO o DAO?.
Saludos
