No se encontró el método o miembro de datos

[Rossanalie]

Hola tengo un problemilla, quiero enlazar un textbox al campo de una tabla o consulta sobre la misma a través del control adodc pero me aparece el error "No se encontró el método o miembro de los datos" específicamente en la instrucción Text1(0).DataSource = Adodc1


El código es el siguiente:
Dim con As ADODB.Connection
Dim rs As ADODB.Recordset

Set con = New ADODB.Connection
con.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=ISLR;Data Source=CTXP03"
Adodc1.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=ISLR;Data Source=CTXP03"

rif = Combo4(0).Text

If rif <> "" Then
sql = "SELECT rif FROM CONTRIBUYENTE WHERE rif = '" & rif & "'"
Set rs = con.Execute(sql)

If rs.BOF = True And rs.EOF = True Then
Else
Text1(0).DataSource = Adodc1
variable = "SELECT rif FROM CONTRIBUYENTE WHERE rif = '" & rif & "'"
Adodc1.RecordSource = variable
Text1(0).DataField = nombre
con.Close
End If
End If