Database e Matrice di controlli

[cla80]

Salve, sarò breve e conciso:

Ho una form con 190 textbox, richiamabili attraverso una matrici di controlli, pertanto
si va da text1(0) fino text1(189), ora vorrei un aiuto:
Vorrei che ogni textbox fosse collegato allo stesso campo di un database, il cui campo è
popolato automaticamente fino a 189 e mi identifica il text1(i) con i= al campo del database;
, quindi partendo dal primo record della tabella mi deve destinare il valore di altri
campi contenuti in quel record.
Esempio:

Ho una tabella con questi campi:

ID=contatore
codice=numerico
cognome=testo
nome =testo
anni=numerico

Supponiamo che sul primo record ci sia:

ID=numero qualsiasi è un contatore.

codice=67 ---quindi dovrebbe gia sapere che dovra
scrivermi nel text1(67).text

cognome = PIPPO

nome=PLUTO

anni=22

ora all'apertura del form, dovra apparire sul text1(67).text il cognome PIPPO.
Quindi dovranno essere letti tutti i record del database e distinati i cognomi su ogni
textbox secondo il valore che è inserito nel campo CODICE che identifica il textbox associato.

Come fare questo??
Vi chiedo aiuto.

[anatroccolo]

Provo a darti un'idea....

Dim Cn As New ADODB.Connection
Dim Rs As New ADODB.Recordset

    Cn.CursorLocation = adUseClient
    Cn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\xxx.mdb" & ";Jet OLEDB:Database ;"
    Rs.Open "Select * from xxx",CnRc,adOpenStatic,adLockOptimistic
    Rs.MoveFirst
    If Rs.RecordCount > 0 Then
        For I = 0 To Rs.RecordCount - 1
            Comodo = Rs.Fields("Codice").Value
            Text1(Comodo).text = Rs.Fields("Cognome").Value
            Rs.MoveNext
        Next I
    End if