Как поместить результат выполнения хранимой процедуры в сводную таблицу? - VB

Формулировка задачи:

Пытаюсь сделать вот так:

Set cmd = New ADODB.Command
cmd.ActiveConnection = cn
cmd.CommandType = adCmdStoredProc
cmd.CommandText = "FunctionBase.Supply.Report"
cmd.Parameters.Append cmd.CreateParameter("@user_id", adInteger, adParamInput, , userId)
Set rs = cmd.Execute()

Sheets.Add
ActiveWorkbook.PivotCaches.Create(SourceType:=xlExternal, SourceData:=rs, Version:=xlPivotTableVersion14).CreatePivotTable _
    TableDestination:="Лист5!R3C1", TableName:="Сводная2", DefaultVersion:=xlPivotTableVersion14

Решение задачи: «Как поместить результат выполнения хранимой процедуры в сводную таблицу?»

textual
                            Листинг программы 
                        

                            Set cmd = New ADODB.Command
cmd.ActiveConnection = cn
cmd.CommandType = adCmdStoredProc
cmd.CommandText = "FunctionBase.Supply.Report"
cmd.Parameters.Append cmd.CreateParameter("@user_id", adInteger, adParamInput, , userId)

Sheets.Add
Set objPivotCache = ActiveWorkbook.PivotCaches.Add(SourceType:=xlExternal)
Set objPivotCache.Recordset = cmd.Execute()
objPivotCache.CreatePivotTable TableDestination:=Range("A3"), TableName:="Svodnaya"

                        