Не работает Command в качестве хранимой процедуры

...
Dim cnn As New Connection
    
    Dim cmd As New Command
    
    Dim rs As Recordset
    
'    cnn.Open 'MyDSN' '
    cnn.Open 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:DATAMyDB.MDB'
    cmd.CommandType = adCmdStoredProc
    cmd.CommandText = 'qSearch'
    cmd.CommandTimeout = 300000
    cmd.ActiveConnection = cnn
    
    Set rs = cmd.Execute(, '*')
    
    Do Until rs.EOF
        Debug.Print rs(0)
        rs.MoveNext
    Loop
 
    rs.Close
    
    Debug.Print cnn.Errors.Count
    
    cnn.Close
 
...

Dim cnn As New ADODB.Command
Dim rs As New ADODB.Recordset
 
cnn.ActiveConnection 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:DATAMyDB.MDB'  
cnn.CommandText = 'qSearch'  
cnn.CommandType = adCmdStoredProc
Set rs = New ADODB.Recordset
Set rs = cnn.Execute()
 
Do Until rs.EOF    
Debug.Print rs(0)    
rs.MoveNext  
Loop  
rs.Close    
Debug.Print 
cnn.Errors.Count    
cnn.Close

Set p = New ADODB.Parameter
p.Type = 'Type' 
p.Size = 'Size'
p.Direction = 'Direction'
p.Value = 'Value'
cnn.Parameters.Append p

For i = 0 To 28
    MsgBox 'Имя: ' & cmmP.Parameters.Item(i).Name & ' Тип: ' & cmmP.Parameters.Item(i).Type & ' Размер: ' & cmmP.Parameters.Item(i).Size, , 'Отладка!'
Next i