ho utilizzato il tuo codice, con una matrice di textbox generata a run-time... e il problema non si è posto minimamente...

ti riporto il codice che ho provato su un nuovo progetto con solo un form e un textbox con indice = 0 disposto sul form e un command button:

codice:
Public connConnection As New ADODB.Connection
Public rsRecordset As New ADODB.Recordset

Public Sub connessione()
Dim strConnect As String
Dim strProvider As String
Dim strDataSource As String
Dim strDataBaseName As String
strProvider = "Provider= Microsoft.Jet.OLEDB.4.0;"
strDataSource = App.Path
strDataBaseName = "\TuaCartella\TuoDB.mdb"
strDataSource = "Data Source=" & strDataSource & strDataBaseName
strConnect = strProvider & strDataSource
connConnection.CursorLocation = adUseClient
connConnection.Open strConnect
rsRecordset.CursorType = adOpenStatic
rsRecordset.CursorLocation = adUseClient
rsRecordset.LockType = adLockPessimistic
End Sub

Private Sub Command1_Click()

    connessione
    
    rsRecordset.Source = "SELECT * FROM TuaTabella"
    rsRecordset.ActiveConnection = connConnection
    rsRecordset.Open
    
    For K = 1 To 3
        Load txt(K)
        txt(K).Move txt(0).Left, txt(0).Top + (300 * K)
        txt(K).Visible = True
    Next

    For K = 0 To 3
        Set txt(K).DataSource = rsRecordset
        txt(K).DataField = rsRecordset(K).Name
    Next

End Sub
Boolean