---

・プロジェクトの参照に「Microsoft Active Data Object 2.0 Library」追加

　　Dim rs As ADODB.Recordset
　　Set rs = New ADODB.Recordset
　　rs.CursorLocation = adUseClient <--- これを指定する。
　　...

・参照：http://support.microsoft.com/kb/194973/ja