para filtrar los registros con el dato que buscas podrias hacer lo siguiente: Data1.RecordSource = "Select * From <Tu tabla> Where <Tu campo> Like '" & Text1.text & "%'"
No soy bueno, tampoco soy malo sino todo lo contrario...