Microsoft Access 掲示板

ご存じならご回答願います。

下記コードを実行すると、RecordCountが-1になります。
Do Until myRS.EOFで回すと3件あるのですが。。
データの中身も問題なくあります。
RecordCountで3を取得できる設定をご存じないでしょうか？

    Dim myDB As Object                   'ADOコネクション用オブジェクトの宣言
    Set myDB = CurrentProject.Connection '現在開いているデータベースへ接続
    Dim com As Object
    Set com = CreateObject("ADODB.Command")

    Dim myRS As Object 'レコードセット用変数宣言
    Set myRS = CreateObject("ADODB.RecordSet") 'ADOレコードセットオブジェクトを作成
    myRS.CursorType = adOpenStatic
    myRS.LockType = adLockOptimistic
    myRS.CursorLocation = adUseClient

    With com
        .ActiveConnection = myDB
        .CommandText = "Q_Test"
        .CommandType = 2          
        .Parameters.Refresh
        .Parameters("test") = "test"
        Set myRS = .Execute
    End With