あー、おぺんの時はクライアントカーソル使ってちょ。

　:
Set RS = New ADODB.Recordset
RS.CursorLocation = ADODB.adUseClient
　:

で、どうだろうか？