Comincia col modificare il ciclo:
Do While not MyRecordset.EOF = False
...
...

MyRecordset.MoveNext
Loop

che cosa sono:
"SitIncassi" e gADOConnessione (posta la stringa di connessione)