vb6 crystal report

Dim Report As New CRAXDDRT.Report
Dim App As New CRAXDDRT.Application



Private Sub Command1_Click()

 Set Report = App.OpenReport("C:\SBWBWIN\Report1.rpt")
    Report.Database.Tables(1).Location = "C:\sbwbwin\NewDatabase.mdb"
    CRViewer.ReportSource = Report
    CRViewer.ViewReport
    CRViewer.Zoom (100)
    Screen.MousePointer = vbDefault
    'CRViewer.PrintReport
    Report.PrintOut False, nocopies
   
End Sub