Dim db As Database Set db = OpenDatabase(Ruta de la Base de datos) Set Data1.Recordset = db.OpenRecordset("SELECT * FROM tabla WHERE campo LIKE '" & Text1 & "%'")