Dim OraSession As Object 'OraSession
    Dim OraDatabase As Object 'OraDatabase
    Dim OraClob As Object 'OraClob
    
    On Error GoTo exit_GetData
    
    'Create the OraSession Object.
    Set OraSession = CreateObject("OracleInProcServer.XOraSession")

    'Create the OraDatabase Object by opening a connection to Oracle.
    Set OraDatabase = OraSession.OpenDatabase(Database, UserName & "/" & Password, 0&)

    ' Set query parameters
    OraDatabase.Parameters.Add "PARAMS", Parameters, ORAPARM_INPUT, ORATYPE_VARCHAR2
    OraDatabase.Parameters.Add "RESULT", Empty, ORAPARM_OUTPUT, ORATYPE_CLOB
    'OraDatabase.Parameters("RESULT").serverType = ORATYPE_CLOB

    ' Execute query
    OraDatabase.ExecuteSQL _
        "BEGIN" & vbLf & _
        "    :RESULT := REPORTGENERATOR.PROCESSREQUEST(:PARAMS);" & vbLf & _
        "END;"
    
    ' Get CLOB result
    Set OraClob = OraDatabase.Parameters("RESULT").Value
    If OraClob.IsNull Then
        Err.Raise vbObjectError, , "No data is available"
    ElseIf OraClob.Size = 0 Then
        Err.Raise vbObjectError, , "No data is available"
    End If

   Dim con As ADODB.Connection
   Dim cmd As ADODB.Command
   Dim prminput As ADODB.Parameter
   Dim prmoutput As ADODB.Parameter
   
   On Error GoTo exit_GetData
   
   Set con = New ADODB.Connection
   con.Open "provider=MSDAORA.Oracle;user id=" & UserName & ";password=" & Password & ";data source=" & Database
'   con.Open "dsn=orcl;uid=scott;pwd=tiger"

  
   Set cmd = New ADODB.Command
   cmd.CommandText = "REPORTGENERATOR.PROCESSREQUEST"
   cmd.ActiveConnection = con
   cmd.CommandType = adCmdStoredProc
   cmd.NamedParameters = True
   
   Set prmoutput = cmd.CreateParameter("p_result", adLongVarChar, adParamOutput, 2147483647, "")
   Set prminput = cmd.CreateParameter("p_params", adChar, adParamInput, 2000, Parameters)
   cmd.Parameters.Append prmoutput
   cmd.Parameters.Append prminput
   cmd.Execute
   con.Close