Urgente! Ejecutar Stored Procedure desde Visual Basic

Fernando
07 de Marzo del 2005
Hola,
estoy intentando acceder a los valores que me devuelve un stored procedure desde visual basic y la aplicacion me esta dando un error.
El procedure es como sigue:
CREATE OR REPLACE PROCEDURE ESTADOSPOSIBLES(
exp_IN CHAR,
OMWB_ret_cv IN OUT globalPkg.RCT1)
.....
INSERT INTO OMWB_estadosposibles Values (....)
.....
OPEN OMWB_ret_cv FOR
SELECT col01
FROM OMWB_estadosposibles
ORDER BY col00;
END estadosposibles;

Es decir, va haciendo una serie de consultas y los resultados los mete en una tabla de la que luego consulta los valores a devolver por el procedimiento.
En Visual Basic el codigo que estoy empleando es el siguiente:

Dim OraSession As Object
Dim OraDatabase As Object
Dim OraDynaset As Object
Set OraSession = CreateObject("OracleInProcServer.XOraSession")
Set OraDatabase = OraSession.OpenDatabase("Oracle9i", "***/***", ORADB_DEFAULT)
OraDatabase.Parameters.Add "EXP_IN", "C-AR-0006/03", ORAPARM_BOTH
OraDatabase.Parameters.Add "OMWB_RET_CV", "", ORAPARM_OUTPUT
Set OraDynaset = OraDatabase.CreatePlsqlDynaset("BEGIN estadosposibles (:EXP_IN, :OMWB_RET_CV); END;", "OMWB_RET_CV", ORADYN_DEFAULT)
While Not OraDynaset.EOF
MsgBox OraDatabase.Parameters(0).Value
MsgBox OraDatabase.Parameters(1).Value
OraDynaset.MoveNext
Wend

El primer MsgBox me devuelve el valor correcto, pero el otro no muestra nada. El numero de ejecuciones del while es el correcto dependiendo del valor consultado. Como hago para obtener los parametros de vuelta? Es bastante urgente