Что то не выходит

'===================================================================
' Функция вызова хранимки с передачей параметров
'===================================================================
Function GetRecordSet(ProcedureName, ProcParArr)
Dim Prm ', RS
Dim i
Dim Par
Dim cn As ADODB.Connection
Dim Cmd As ADODB.Command
Dim rs As ADODB.Recordset
Dim db As ADODB.Connection
Set cn = CreateObject("ADODB.Connection")



cn.Open "Driver={SQL Server}; Server=MyServer; UID=" + stringLogin + "; PWD=" + stringPWD + ";Database=MyDatabase"



Set Cmd = CreateObject("ADODB.Command")
Set rs = CreateObject("ADODB.Recordset")
Set Cmd.ActiveConnection = cn

Cmd.CommandType = 4
Cmd.CommandText = "ap_rep_balance"
Dim iParam
Set iParam = Cmd.CreateParameter("@plan", 3, 1)
iParam.Value = 70
Cmd.Parameters.Append iParam

Set iParam = Cmd.CreateParameter("@crc", 3, 1)
iParam.Value = 0
Cmd.Parameters.Append iParam

Set iParam = Cmd.CreateParameter("@Start", 7, 1)
iParam.Value = DateSt
Cmd.Parameters.Append iParam

Set iParam = Cmd.CreateParameter("@End", 7, 1)
iParam.Value = DateEnd
Cmd.Parameters.Append iParam

Set iParam = Cmd.CreateParameter("@mcid", 3, 1)
iParam.Value = 1
Cmd.Parameters.Append iParam


rs.Open Cmd, , 3

MsgBox (CStr(rs.RecordCount))
Set Cmd = Nothing
End Function

Ругается :-( на Rs.Open

Run-time error ' -2147217887 (80040e21) ';
[Microsoft][ODBC SQL Server Driver] Optional feature not implemented

Даже если запустить хранимку без параметров "ap_users_load",
rs.recordcount = -1 , rs.state = 1 (открыт)
хотя в SQL Server Managemernt studio sql2005
запрос возвращает много строк
если поставить cn.Provider = "sqloledb", - то же самое
rs.recordcount = -1 , rs.state = 1 (открыт)