E' un errore che conosco!!!!!!!!!!

Ma ora non ricordo da cosa è provocato

CMQ prova ad aggiungere questo nel ciclo WHILE - WEND


codice:
While Not rs1.EOF
    For i = 0 To rs.Fields.Count - 1
        ................................
    Next i
    rs.MoveNext
Wend
Poi fammi sapere se hai risolto