tendaimare 0 Junior Poster in Training

I wanted to know how I can print reports using vb6 and crystal reports 11 and I am using the following code

Inline Code Example Here
Set Report = appln.OpenReport("C:\SBWBWIN\Report1.rpt")
Report.Database.Tables(1).Location = App.Path & "\NewDatabase.mdb"
CRViewer.ReportSource = Report
CRViewer.ViewReport
CRViewer.Zoom (100)
Screen.MousePointer = vbDefault
Report.PrintOut False, nocopies

but the problem is that my system crashes the moment I run it. Is there an alternative way I can run the system without it crashing