Kod dodaje nowy wiersz na końcu rs2 zestaw rekordów. Następnie wywołuje .MoveNext , który umieszcza zestaw rekordów w .EOF . Więc Loop warunek jest wtedy True , co oznacza, że nie zapętla się.
Wygląda na to, że masz inny zestaw rekordów, rs . Być może to jest ten, przez który powinieneś przejść w pętli zamiast rs2 .