!!!OPS!!!

Mi sono dimenticato di incrementare i

inserisci i=i+1
prima di questa riga di codice:

i=i+1
Data1.Recordset.MoveNext