X = "Select * from contactos where nombre_apellido LIKE '" & Text1(0).Text & "'" apertura.Open X, conectar