Oracle 10 VBNet ASPX

************************************************************
Oracle 10 g
************************************************************
       PROCEDURE PR_DQ_DISTINCT_SUBJECTAREA_GET(
			  					p_dq_mon_sub_area OUT DQ_MON_TBL_REF_SUBAREA.UPD_DATE%TYPE,
                     			cur_out				OUT SYS_REFCURSOR,
                     			p_status_n			OUT NUMBER
    )
    IS
		lv_sql_main    VARCHAR(4000)      := NULL;    
    BEGIN
     p_status_n         := cSUCCESS_RTN;
    IF cur_out%ISOPEN THEN
       CLOSE cur_out;
    END IF;
    
	  lv_sql_main := 'SELECT  * From DQ_MON_TBL_REF_SUBAREA Order By DQ_SUBJECT_AREA_C DESC';
 
    OPEN cur_out FOR lv_sql_main;
 	EXCEPTION
    WHEN OTHERS
    THEN
    IF cur_out%ISOPEN THEN
    	CLOSE cur_out;
    END IF;
    p_status_n := cFAIL_RTN;
 	END PR_DQ_DISTINCT_SUBJECTAREA_GET;
 
************************************************************
VB.Net 
************************************************************
 
 Public Shared Function GetSubjectAreaFromDQ_Ref(ByVal StrLastUpd As String) As DataSet
        Dim db As Database
        Dim cmdDB As Common.DbCommand
        Dim ds As DataSet
        Dim sCommandSQL As String = PR_UPDATE_GET_SUBJECTAREA
        Dim iStatus As Int64
        Try
            db = DatabaseFactory.CreateDatabase("OracleSource")
            cmdDB = db.GetStoredProcCommand(sCommandSQL)
            db.AddOutParameter(cmdDB, "p_dq_mon_sub_area", DbType.String, 16)
            db.AddOutParameter(cmdDB, "p_status_n", DbType.Int64, 9)
            ds = db.ExecuteDataSet(cmdDB)
            MsgBox(cmdDB.Parameters("p_dq_mon_sub_area").Value)
            If Not CommonFunctions.IsEmptyField(cmdDB.Parameters("p_status_n").Value) Then
                iStatus = CInt(cmdDB.Parameters("p_status_n").Value)
            Else
                iStatus = NULLSTATUS
            End If
            If iStatus <> 0 Then
                Throw New Exception(CommonFunctions.BuildDALExceptionMsg(MethodBase.GetCurrentMethod.Name, PR_RETRIVE_USER_ID_DTLS, iStatus))
            End If
            Return ds
        Catch ex As Exception
            Throw ex
        End Try
    End Function