(vb)coneccion mediante codigo

[mmadrid]

Estoy intentando hacer una coneccion a una base de acces mediante codigo, despues de un lostfocus, asi:

text1.datasource = adodc
text1.datafield = nombreregistro

me dice que el metodo o el miembro no se encontro o no existe, pero en la caja de propiedades si esta, gracias por su ayuda

[mmadrid]

bueno, despues de un rato encontre que solo hacia falta anteponerle "set", pero a ahora me dice que la sentencia "select " esta mala, el codigo exacto es
regis = Text1(1).Text
Adodc2.RecordSource = "select registro from clientes where registro = regis"
Set Text11.DataSource = Adodc2
Text11.DataField = nombre