Как вызвать через ADO хранимую процедуру Oracle? - VB

create  replace package ane_pack_1 
     t_refcursor_1  ref cursor;
     procedure my_proc_1(out_data  out sys_refcursor, p_param1  number);
   ane_pack_1;

create  replace package body ane_pack_1 

PROCEDURE my_proc_1(out_data  out sys_refcursor
            		   ,p_param1  number)

begin
	 out_data   rownum from user_objects where rownum<=p_param1;
 my_proc_1;
    
 ane_pack_1 ;

cmd  ADODB.Command
 rs  ADODB.Recordset

 cnt
  .Provider = 
  .ConnectionString = 
  .CursorLocation = adUseClient
  .

 cmd =  ADODB.Command
 rs = CreateObject()
 cmd
  .ActiveConnection = cnt

  .CommandType = adCmdText
  .CommandText = 

 rs = cmd.Execute

 i, j  
j = rs.RecordCount
rs.MoveFirst
 i =   j - 
  Sheets().Cells(i + , ) = i
  Sheets().Cells(i + , ) = rs.Fields()
  rs.MoveNext

rs.

 cmd = 
cnt.
 cnt =