Example of VB calling Oracle function return DataSet

oracle| Function | Data pl/sql code:
CREATE OR REPLACE PACKAGE "SCOTT". " Pkg_test "as
TYPE Myrctype is REF CURSOR;
FUNCTION get (Strbarcode VARCHAR) return myrctype;
End Pkg_test;

CREATE OR REPLACE PACKAGE Body "SCOTT". Pkg_test "as
FUNCTION get (Strbarcode in VARCHAR) return Myrctype is
RC Myrctype;
BEGIN
OPEN RC for Strbarcode;
return RC;
End get;
End Pkg_test;
--------------------------------------------------------------------------------------------------------
VB Code:
Private Sub Command1_Click ()
On Error GoTo Cursorerr:
Dim CNN as New ADODB. Connection
Dim rst as New ADODB. Recordset
Dim cmd as New adodb.command

Cnn. ConnectionString = "PROVIDER=ORAOLEDB.ORACLE.1; Password=tiger; Persist Security info=true; User Id=scott;data Source=oraany; Extended Properties=plsqlrset=1 "
Cnn. Open

With cmd
. ActiveConnection = CNN
. CommandType = adCmdText
. CommandText = "{call Scott.pkg_test.get (?)}"
. Parameters.Append. CreateParameter ("Strbarcode", adVarChar, adParamInput, "Select * from Tab")
End With

Rst. CursorType = adOpenStatic
Rst. LockType = adLockReadOnly
Set rst. Source = cmd
Rst. Open

MsgBox rst. RecordCount

Set rst = Nothing
Set cmd = Nothing
Exit Sub

Cursorerr:
Set cmd = Nothing
Set Rst1 = Nothing
MsgBox Err.Description
End Sub