[OT]
Non dovrei più scrivere ma visto che oggi non
ho niente altro da fare

prova a sostituire
For I = 1 to rs.eof
con
Do While Not rs.eof