Reporting with Crystal Reports in vb6

Private Sub cmdPrint_Click()
    Dim rsAccess_level As New ADODB.Recordset
    Dim rptApps As New CRAXDRT.Application
    Dim rptReport As New CRAXDRT.Report
            With rsAccess_level
                If .State = adStateClosed Then
                    '.Open "Select * from Folder_Checklist where AcctName'" & txtCustName & "'", ConnModule.conn, adOpenDynamic, adLockOptimistic
                    .Open "Select * from Access_level", ConnModule.conn, adOpenDynamic, adLockOptimistic
                    On Error GoTo errHandler:
                End If
                        'Screen.MousePointer = vbHourglass
                        Set rptApps = CreateObject("CrystalRunTime.Application")
                        Set rptReport = rptApps.OpenReport(App.path & "\reports\Access_level_Rep.rpt")
                        frmReport.CRViewer91.ReportSource = rptReport
                             rptReport.Database.SetDataSource rsAccess_level
                             rptReport.PaperSize = crPaper10x14
                        On Err GoTo errHandler:
                        frmReport.CRViewer91.ViewReport
                        frmReport.CRViewer91.Refresh
                        frmReport.CRViewer91.Zoom 90
                        Screen.MousePointer = vbDefault
                        On Error GoTo errHandler:
            End With
            Exit Sub
errHandler:
        MsgBox Err.Description, vbCritical, "Access Level: Print Error"
End Sub