Необходимо из Excel подключиться к SQL Server и получить recordset

Код выглядит так :

Dim ADOConnection, ADOCommand, ADOTable As Object

Set ADOConnection = CreateObject("ADODB.Connection")
Set ADOCommand = CreateObject("ADODB.Command")
Set ADOTable = CreateObject("ADODB.Recordset")

ADOConnection.ConnectionString = CONNECTION_STRING
ADOConnection.CommandTimeout = 0
ADOConnection.ConnectionTimeout = 0
ADOConnection.Open

ADOCommand.CommandType = adCmdStoredProc
ADOCommand.ActiveConnection = ADOConnection
ADOCommand.CommandText = "spL_Fin_GetPortfalioGraph"
ADOCommand.Parameters.Append (ADOCommand.CreateParameter("@AgrNum", adChar, adParamInput, 35))


ADOCommand.Parameters.Item(0).Value = Trim(Cells(i, 1).Value)
ADOCommand.Prepared = True

Set ADOTable = ADOCommand.Execute

With ADOTable
.MoveFirst
For a = 1 To .RecordCount
....

Но возвращаеться пустой набор, RecordCount=0 .... хотя на сервере (из QA) весе выполняеться нормльно !
подскажите что я делаю не правильно ?