Set Application = New CRAXDRT.Application
vConStr = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=" & vServer & ";DATABASE=" & vDatabase & ";USER=" & vUsername & ";PASSWORD=" & vPassword & ";OPTION=3;"
Set Report = Application.OpenReport(App.Path & "\" & vReport & ".rpt")
Report.Database.Tables(1).ConnectionProperties("Connection String") = vConStr
Report.ParameterFields(1).AddCurrentValue (vQuery)
Report.EnableParameterPrompting = False
ReportViewer.ReportSource = Report
ReportViewer.ViewReport
Do While ReportViewer.IsBusy = True
DoEvents
Loop
Do more with
Premium Content
You need an Expert Office subscription to comment.Start Free Trial