Error 545

[spiderman78]

Que tal como estan bueno aqui de nuevo con un problema tengo la siguiente consulta

Código:

Set RecSQL = New ADODB.Recordset
    RecSQL.CursorLocation = adUseClient
    RecSQL.Open "SELECT * FROM pacientes", BD, adOpenStatic, adLockOptimistic
    ' asignamos a los TextBox el valor de cada campo (en la tabla tienen que estar en el
    ' mismo orden, es decir el primer campo (0) será fecha, el segundo nombre, etc..)
    Dim i As Integer
    For i = 0 To 18
        Set Text1(i).DataSource = RecSQL
        Text1(i).DataField = RecSQL(i).Name
    Next i

    ' agregamos al combo todos los apellidos (que es el campo 2) y su posición en
    ' el recordset
    With RecSQL
        .MoveFirst
        Do Until .EOF
            Combo1.AddItem .Fields(3)
            Combo1.ItemData(Combo1.NewIndex) = .AbsolutePosition
            .MoveNext
        Loop
    End With

Y en esta linea me marca error
Text1(i).DataField = RecSQL(i).Name

Me dice "Run-time 545
Unable to bind to field or DataMember:"id"
y bueno le agrego a esa intruccion el id para que quede de esta manera:
Text1(i).DataField = RecSQL(i).Name = "id"

y Me marca el error
Unable to bind to field or DataMember:'True'

Gracias por sus respuestas

Saludos