Вызов процедуры Oracle и возврат рекордсета (ADO) - VB

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

Имеем примерно следующий код:

strCon =  &_
 &_
 &_
 &_

 oCMD = Server.CreateObject() 
 oCon = Server.CreateObject()
 oRs = Server.CreateObject()
oCon. strCon

 oCMD.ActiveConnection = oCon
 oCMD.CommandText = 
 oCMD.CommandType = adCmdStoredProc
 oCMD.NamedParameters = True

oCMD.Parameters.Append(oCMD.CreateParameter(, adDBDate, adParamInput))
oCMD.Parameters.Append(oCMD.CreateParameter(, adDBDate, adParamInput))
oCMD.Parameters.Append(oCMD.CreateParameter(, adNumeric, adParamInput))
oCMD.Parameters.Append(oCMD.CreateParameter(, adNumeric, adParamInput))
oCMD.Parameters.Append(oCMD.CreateParameter(, adNumeric, adParamInput))
oCMD.Parameters.Append(oCMD.CreateParameter(, adVarChar, adParamInput,))
oCMD.Parameters.Append(oCMD.CreateParameter(, adVarChar, adParamInput,))

oCMD.Parameters().Value = ZDate(D1,)
oCMD.Parameters().Value = ZDate(D2,)
oCMD.Parameters().Value = X1
oCMD.Parameters().Value = X2
oCMD.Parameters().Value = X3
oCMD.Parameters().Value = Q1
oCMD.Parameters().Value = Q2

 oRs = oCon.Execute

На последней строчке выдается сообщение

1) Чего не так и как поправить?
2) Можно примерчик где обрабатывается рекордсет возвращаемый из процедуры. (не 1 значение в качестве параметра а именно рекордсет)
3) Есть ли варианты получить рекордсет через параметры - например вот таким способом

Proc1(aParam1  , aParam2  Sys_RefCursor) 

...
;

Решение задачи: «Вызов процедуры Oracle и возврат рекордсета (ADO)»

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

                            CREATE <font color="blue">OR</font> REPLACE package TEST.TST <font color="blue">as</font>
cursor em <font color="blue">is</font> <font color="blue">select</font> * from emp;
<font color="blue">type</font> c1 <font color="blue">is</font> ref cursor <font color="blue">return</font> em%rowtype;
<font color="blue">FUNCTION</font> EMPL <font color="blue">return</font> c1;
<font color="blue">end</font>; 
/

CREATE <font color="blue">OR</font> REPLACE package body TEST.TST <font color="blue">as</font>
<font color="blue">FUNCTION</font> EMPL <font color="blue">return</font>  c1 <font color="blue">is</font>
  tmp c1;
BEGIN
	 <font color="blue">open</font> tmp <font color="blue">for</font> 
	 	  <font color="blue">select</font> * from emp;
	<font color="blue">return</font> tmp;
<font color="blue">end</font> EMPL;
<font color="blue">end</font>; 
/
                        