VB6.0　ADO＋Oracleでストアドプロシージャから
件数が複数ある戻り値を取得したいのですが、上手く行きません。
どこが間違っているかご指導お願いできますでしょうか。

Set objADOcmd = New ADODB.Command
Set objADOcmd.ActiveConnection = cnn
　objADOcmd.CommandText = "tst_Get_Cursor_pkg.tst_Get_Cursor"
objADOcmd.CommandType = 4
　Set p0 = objADOcmd.CreateParameter
p0.Direction = adParamOutput
p0.Type = adChar
p0.Size = 19

Set p1 = objADOcmd.CreateParameter
p1.Direction = adParamOutput
p1.Type = adInteger

objADOcmd.Parameters.Append p0
objADOcmd.Parameters.Append p1
objADOcmd.Execute
MsgBox p1.Value