Why is this error, when running a cristal report ?

[snehakevin]

Dim Report As New CrystalReport7
Dim db As Database
Dim rs As Recordset

Private Sub Form_Load()
Screen.MousePointer = vbHourglass
Report.Application.OpenReport ("xxxxxx.rpt&quot
Report.PaperOrientation = crPortrait
CRViewer91.ReportSource = Report
CRViewer91.ViewReport
Screen.MousePointer = vbDefault
End Sub
Private Sub Form_Resize()
CRViewer91.Top = 0
CRViewer91.Left = 0
CRViewer91.Height = ScaleHeight
CRViewer91.Width = ScaleWidth
End Sub
Private Sub Form_Unload(Cancel As Integer)
Set db = OpenDatabase(App.Path + "\CONVBELT.MDB&quot
Set rs = db.OpenRecordset("TEMP&quot
rs.Delete
End Sub

The error Message is
Error message box caption is: Crystal Report Viewer
Logon failed
Details: Error Code: 0x800401f3