AccessのVBAにてADOでSQL実行結果を取得したい

Question

Access にテーブルを作成し、そのAccessのVBAで標準モジュールを定義します。
標準モジュール（Module1）に以下のプロシージャを記述したのですが、エラーも発生（ハンドリング）されずSQL実行結果のレコードセット（rs）に-1 レコードとなりSELECT結果が格納されません。

何か初歩的なミスをしているのだと思いますが、何かが特定できませんでした。

Option Compare Database
Option Explicit
'参照設定
'Microsoft ActiveX Data Objects 6.0 Library
'Microsoft ADO Ext. 6.0 for DDL and Security
 
 
Public Sub sqlExeTest()
  On Error GoTo L_ERR
 
  Dim cn As ADODB.Connection:       Set cn = CurrentProject.Connection
  Dim rs As ADODB.Recordset:        Set rs = New ADODB.Recordset
  Dim strSQL As String
 
  strSQL = "SELECT * FROM テーブル1"
  Debug.Print strSQL
  rs.Open _
    Source:=strSQL, _
    ActiveConnection:=cn
 
  Debug.Print "rs: " & rs.RecordCount & " recorded"
  rs.Close: Set rs = Nothing
  cn.Close: Set cn = Nothing
  Exit Sub
 
L_ERR:
  Debug.Print Err.Number & " " & Err.Description
  Resume Next
 
End Sub

イミディエイトウィンドウの表示は以下です。
SELECT * FROM テーブル1
rs: -1 recorded

Answer 1

  Dim cn As ADODB.Connection:       Set cn = CurrentProject.Connection
  Dim rs As ADODB.Recordset:        Set rs = New ADODB.Recordset
  rs.CursorLocation = adUseClient '追加

ADO Recordset で RecordCount プロパティが -1 を返す場合 |

Comments

[S.Nakagawa255]

解決しました。ありがとうございました！