Dim cmd As New ADODB.Command
    Dim rst As New ADODB.Recordset
    cmd.CommandType = adCmdTable
    cmd.ActiveConnection = CurrentProject.Connection
    cmd.CommandText = "qry_2test"
    rst.CursorType = adOpenKeyset
    Set rst = cmd.Execute
    Debug.Print rst.RecordCount
    Set cmd = Nothing
    rst.Close
    Set rst = Nothing

rst.MoveLast

    
str_cmd = "qry_2test"
rst.Open str_cmd, CurrentProject.Connection, adOpenStatic, adLockReadOnly, adCmdTable
Debug.Print rst.RecordCount  ' = 49
 

cmd.CommandText = "qry_2test"
Set rst = cmd.Execute
Debug.Print rst.RecordCount  ' = -1
 

    cmd.CommandType = adCmdStoredProc
    cmd.ActiveConnection = CurrentProject.Connection
    cmd.CommandText = "qry_с_двумя_параметрами"
    Set rst = cmd.Execute(lngAffected, Array("bla", "bla"))
    Debug.Print rst.RecordCount  ' = -1