pls review my code....

[alexis23]

hi there,

can you pls review my code, i am calling this form to view my crystal report, my problem is it consume a lot of memory when it loads, that causes the system to crash..

thanks,


Option Explicit
Dim cn As New ADODB.Connection
Dim jro As New jro.JetEngine
Dim oRS As ADODB.Recordset
Dim oApp As CRAXDRT.Application
Dim oReport As CRAXDRT.report

Private Sub Form_Load()

Dim sSQL As String

CRViewer1.Top = 0
CRViewer1.Left = 0

CRViewer1.EnableExportButton = gstrRptExport

sSQL = gstrRptCmd

Me.Caption = gstrRptTitle

If Dir(gstrRptPath) = "" Then
MsgBox "Report file not found!", vbCritical
GoTo ReportErr
End If
If sSQL = "" Then
MsgBox "Invalid data retrieval!", vbCritical
Exit Sub
End If


On Error GoTo ReportErr
Set cn = New ADODB.Connection
cn.CursorLocation = adUseClient
cn.Open gstrConnectString
Set oRS = New ADODB.Recordset
oRS.LockType = adLockReadOnly
oRS.CursorType = adOpenStatic


jro.RefreshCache cn
Set oRS = cn.Execute(sSQL, , adCmdText)
oRS.Requery
Set oApp = New CRAXDRT.Application
Set oReport = oApp.OpenReport(gstrRptPath, 1)
oReport.Database.SetDataSource oRS, 3, 1
oReport.PaperSize = oReport.PaperSize
oReport.PaperOrientation = oReport.PaperOrientation
On Error Resume Next
oReport.Sections("PH").ReportObjects("CompanyName").SetText gstrCompanyName
oReport.Sections("PH").ReportObjects("ReportTitle").SetText gstrRptTitle
oReport.Sections("PH").ReportObjects("ReportSubTitle").SetText gstrRptSubTitle
On Error GoTo 0
Screen.MousePointer = vbHourglass
CRViewer1.ReportSource = oReport
CRViewer1.ViewReport
Do While oReport.PrintingStatus.Progress = crPrintingInProgress
Loop
CRViewer1.Refresh
Screen.MousePointer = vbDefault
Exit Sub
ReportErr:
MsgBox Err.Description
Exit Sub
End Sub