Adodc1.Recordset.MoveFirstAdodc1.RecordSource = "select * from Agenda where apellidos like '%" & Text1 & "%'"Adodc1.Refresh