Как вытащить таблицу в VBS

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

Мне необходимо вытащить таблицу возвращаемую хранимой процедурой в Recordset в VBS. Ничего не получается 8-(
Вот скрипт:
Set objConnection=CreateObject("ADODB.Connection")
objConnection.ConnectionString="Provider=SQLOLEDB.1;Password=abcd;Persist Security
Info=True;UserID=abcd;Initial Catalog=ZS;Data Source=MS_SQL\test"
objConnection.Open
Set objRecordset = CreateObject("ADODB.Recordset")
objRecordset.ActiveConnection=objConnection
Set objCommand = CreateObject("ADODB.Command")
objCommand.CommandType = 4 ' 4=хранимая процедура
objCommand.ActiveConnection = objConnection
objCommand.CommandText = "test_zs;1" ' процедура - должна
' возвращать 10 значений
MsgBox (objRecordset.state)
MsgBox (objRecordset.Source)
objCommand.execute
objRecordset.open objCommand
MsgBox (objRecordset.Source) 'возвращает { ? = call test_zs;1 }
MsgBox (objRecordset.state) ' возвращает 1 - т.е. соединение
' открыто но процедура не выполнена
MsgBox (objRecordset.status) ' возвращает 0 - т.е. нет ошибок
MsgBox (objRecordset.RecordCount) ' возвращает -1 ???? А ДОЛЖНО 10!
при этом SQL Profiler отображает выполнение процедуры, но число записей/чтений = 0!!!

Решение задачи: «Как вытащить таблицу в VBS»

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

                            <font color="blue">Set</font> objConnection=CreateObject(<font color="teal">"ADODB.Connection"</font>)
<font color="blue">Set</font> objRecordset = CreateObject(<font color="teal">"ADODB.Recordset"</font>)
objConnection.ConnectionString=<font color="teal">"Provider=SQLOLEDB.1;Password=abcd;Persist Security 
Info=True;UserID=abcd;Initial Catalog=ZS;Data Source=MS_SQL\test"</font>
objConnection.CursorLocation = <font color="darkblue"><b>3</b></font>
objConnection.<font color="blue">Open</font>
objRecordset.<font color="blue">open</font> <font color="teal">"test_zs"</font>, objConnection, <font color="darkblue"><b>3</b></font>, <font color="darkblue"><b>4</b></font>
MsgBox (objRecordset.RecordCount)
                        