allora in un modulo c'è questo:

Public Sub aggiorna(verso As Integer, txt() As TextBox)
On Error GoTo ERRORE
Dim i As Integer
Select Case (verso)
Case 0:
For i = 1 To 13
dati(i) = txt(i).Text
Next
Case 1:
'Path = txt.Text
End Select
Exit Sub
ERRORE:
MsgBox "aggiorna"
End Sub


poi in un form c'è questa chiamata


Private Sub Command1_Click()
Call aggiorna(0, txtDati)
aggiungi
End Sub

risultato :

Errore di compilazione:
Tipo non corrispondente. Previsti matrice o tipo definito dall'utente.



MA DOVE MINKIA HO SBAGLIATO ......