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