slow on first load.. CR11..

[alexis23]

what seems to be wrong with my code... my crystral report viewer was very slow on it first load...

pls. review my code.. thanks,

alexis23

Private Sub Form_Load()
 
    Dim sSQL As String
    
    CRViewer1.Top = 0
    CRViewer1.Left = 0
    CRViewer1.EnableExportButton = gstrRptExport
    sSQL = gstrRptCmd  ' gstrrptcmd is a global variable that holds a sql statement
    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
        
    oRS.Open sSQL, cn, adOpenStatic, adLockReadOnly
    oRS.Requery
    
    Set oApp = New CRAXDRT.Application
    Set oReport = oApp.OpenReport(gstrRptPath, 1)
    oReport.DiscardSavedData
    oReport.Database.SetDataSource oRS, 3, 1
    
    oReport.PaperSize = oReport.PaperSize
    oReport.PaperOrientation = oReport.PaperOrientation
    
    
    Screen.MousePointer = vbHourglass
    CRViewer1.ReportSource = oReport
    CRViewer1.ViewReport
    
    
    Do While oReport.PrintingStatus.Progress = crPrintingInProgress
        'DoEvents
    Loop
    Screen.MousePointer = vbDefault
 
    Exit Sub
 
ReportErr:
    
    MsgBox err.Description
    Exit Sub
 
end sub