(vb)coneccion mediante codigo

[mmadrid]

tengo una coneccion a una base de datos acces mediante una adodc, y un par de cajas de texto que devirian mostrar informacion pero despues de filtrarla, asi es que me e imaginado hacer algo como esto.

sqlStr = "select * from tabla where registro = text1.text"
text1.adodc.datasource = adodc
text1.datafield = nombreregistro

Lo mas problable es que el codigo les paresca gracioso, y es por que nunca se me habia ocurrido trabajar con VB en serio,,, gracias por su ayuda