ok, allora rimetti tutti i rs.movenext e togli 'ultimo (che te ne fa saltare uno in più)

inoltre, dopo ogni rs.movenext metti

IF rs.EOF Then Exit Do

così se ti sei finito il recordset esci dal ciclo