>>580
Recordsetを adUseClient (←これ、重要)で開き、1件ずつ更新するのが最速。
.MoveNextする際に、DoEventsするのを忘れずに！