llamar stored procedure

[dorer]

Hola nuevamente, tengo este SP-----lo q hace es hacer select a una tabla y enviar un codigo.

Código:

PROCEDURE SPX_DOCUME_X_COBRAR_AGREGA_SPS(
   
   VO_CH_NRO_CUENTA         IN  REGIS_DOC.NRO_CUENTA %TYPE,
   VO_CH_OUT_NRO_CUENTA     OUT REGIS_DOC.NRO_CUENTA %TYPE,
   VO_CH_COD_SOC            OUT REGIS_DOC.COD_SOC % TYPE,
   VO_CH_NOM_SOC            OUT REGIS_DOC.NOM_SOC %TYPE,
   VO_NU_COD_ERR            OUT NUMBER,
   VO_VA_MSJ_ERR            OUT VARCHAR2,
   VO_CUR_CURSOR            OUT CUR_RETURN 
)
IS
  BEGIN
     -- consultar tabla
       OPEN VO_CUR_CURSOR FOR
       
         SELECT RD.NRO_CUENTA,SN.COD_SOC,SN.NOM_SOC
         FROM REGIS_DOC RD,SOCIO_NEGO SN
         WHERE SN.COD_SOC=RD.COD_SOC
         ;


 -- Indicar ejecucion sin errores
   VO_NU_COD_ERR := 0;
   VO_VA_MSJ_ERR := '';

EXCEPTION
      WHEN OTHERS THEN
         VO_NU_COD_ERR := -1;
         VO_VA_MSJ_ERR := 'Error Store: SPX_DOCUME_X_COBRAR_SPI '|| CS_ENTER ||
                 SQLERRM || CS_ENTER || DBMS_UTILITY.FORMAT_ERROR_BACKTRACE;

END SPX_DOCUME_X_COBRAR_AGREGA_SPS;

estoy en el evento click de mi button mostrar y tengo este codigo con el cual quiero que me ayuden a acondicionarlo con mi SP . Necesito su ayuda con este problema!!

Código vb:

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim x As Exception
        Dim Ds As New DataSet()
        Dim Oraclecon As OracleConnection = New OracleConnection("Server= servidor/xe;Uid=usuario;Pwd=clave")
 
 
        Oraclecon.Open()
 
 
        Dim myCMD As New OracleCommand()
        myCMD.Connection = Oraclecon
        myCMD.CommandText = "ERP_DOCUME_X_COBRAR.SPX_DOCUME_X_COBRAR_AGREGA_SPS"
        myCMD.CommandType = CommandType.StoredProcedure
        myCMD.Parameters.Add(New OracleParameter("VO_CH_NRO_CUENTA", OracleType.Number)).Value = 123
        'myCMD.Parameters.Add(New OracleParameter("io_cursor", OracleType.Cursor)).Direction = ParameterDirection.Output
 
        Dim MyDA As New OracleDataAdapter(myCMD)
 
        Try
            MyDA.Fill(Ds)
        Catch x
            MessageBox.Show(x.Message.ToString)
        End Try
 
        DataGridView1.DataSource = Ds.Tables(0)
 
        Oraclecon.Close()
    End Sub