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