Bueno, yo encuentro varios errores en ese código:
El primero, como te indica GABRIL, es que no estás asignando el objeto a la variable y además lo pones antes de cargar el control Data.
El segundo es que no se está asignando bien la propiedad DataField y aunque estuviera bien, siempre daría error ya que en la consulta sólo se pide el campo rif y no el nombre.
Al parecer el campo rif es numérico, si es así debes quitar las comillas simples a la variable.
Y esto ya no son errores, sino recomendaciones:
No necesitas abrir una conexión y un recordset si estás trabajando con el control AdoData.
No necesitas hacer la comprobación si existen registros en la consulta, ya que se supone que el Combo lo cargaste con los datos de la misma tabla
Al modificar la propiedad RecordSource del control Data, se debe hacer un Refresh al mismo.
En fin, para no extenderme mucho, yo dejaría el código así:
Código:
Dim sql As String
Adodc1.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=ISLR;Data Source=CTXP03"
If Combo4(0) <> "" Then
sql = "SELECT * FROM CONTRIBUYENTE WHERE rif = " & Combo4(0)
Adodc1.RecordSource = sql
Adodc1.Refresh
Set Text1(0).DataSource = Adodc1
Text1(0).DataField = Adodc1.Recordset.Fields("nombre").Name
End If
Como podrás comprobar, bastante mas sencillo. Espero que te funcione.
Saludos
