VBA EXCEL 出力　ループ処理で　終了後　再び実行すると出力されない件

Access VBA で　レコードセットを　エクセルに出力するについて、

Do Until rst.EOF

Loop

で出力をすると、一回目はうまくいくが、そのまま2回目を実行すると、なぜが出力されない。

レコードカウントはきちんと数えているのに、Do　Until　に入ると、EOFとみなされてしまい、一つもレコードが出力されない。

そこで、Do　Ubtil rst.EOF に入る前に、必ず、　rst.Movefirst で、レコードを先頭に移動しておくことにより、確実に出力ができるようになった。