Public Sub runReport(ByVal inDataXML As String)

  Dim rpxFile           As String
  Dim pdfExport         As ActiveReportsPDFExport.ARExportPDF
  Dim excelExport       As ActiveReportsExcelExport.ARExportExcel
  Dim RTFExport         As ActiveReportsRTFExport.ARExportRTF
  Dim rpt               As ActiveReport
  Dim indata            As WEBCOMLib.data  'To process xml data
  Dim Session           As WEBCOMLib.data  'To process xml data
  Dim Params            As WEBCOMLib.data  'To process xml data
 
  Dim outdataXML        As String
  Dim dataType          As String
  Dim indataId          As String
  Dim layoutPath        As String
  Dim rpxFilePath       As String
  Dim query             As String
  Dim connectionString  As String
   
  On Error GoTo errorHandling

  Set indata = XMLToData(inDataXML)
  Set Params = indata("Params")
  rpxFilePath = indata("rpxFilePath")
    
  Set rpt = New ActiveReport
  Call rpt.Restart
  
  rpxFile = indata("rpxFile")
  
  If rpxFile = "" Then Exit Sub
   
  layoutPath = ReportPath & "\" & rpxFilePath & "\" & rpxFile
   
  Call rpt.LoadLayout(layoutPath)
  
  Dim data_control As DDActiveReports2.DataControl
  Set data_control = reportGetDataControl(rpt)
  
  data_control.ConnectionString = "Provider=MSDASQL.1; DRIVER=Firebird/InterBase(r) driver; CHARSET=WIN1251; UID=SYSDBA; PWD=masterkey; DBNAME=C:\DATABASE.GDB"
  data_control.Source="SELECT * FROM TABLE" 
   
  On Error Resume Next
  rpt.ShowMessages = False
  rpt.ShowParameterUI = False
 
  Dim paramName As Variant
  For Each paramName In Params
   rpt.Parameters(paramName).Value = Params(paramName)
  Next paramName
  
  'If we put here a MsgBox the aplication runs normally
   
  Call rpt.Run(False)
  
  On Error GoTo errorHandling
  
  Exit Sub
errorHandling:
  dataType = indata.DataType
  indataId = indata.ID
  outdataXML = "<" & dataType & "><Exception number="" & Err.Number & "" description=""& Err.Description &"" /><" & dataType & "/>"
End Sub