busca = "select CAMPO from NOMBRE DELA TABLA where NOMBRE = '" & Text1 & "'"
Data1.RecordSource = busca

Seria este el codigo de SQL???