ارور در اجرای کریستال ریپورت در vb6

دلیل این ارور چیه ؟

ضمیمه 138291

اینم کد اجرا

زمانی که می خوام از اطلاعاتم طوی دیتابیس گزارش بگیرم ارور میده اینم کدش

Dim crApp As New CRAXDRT.Application
Dim crRept As New CRAXDRT.report
Set crRept = crApp.OpenReport(App.Path & "\reportmamozeshi.Rpt") 'Report File
CrystalActiveXReportViewer1.ReportSource = crRept
CrystalActiveXReportViewer1.ViewReport
Set crApp = Nothing
Set crRept = Nothing

خواهشا کمک کنید وقت زیادی ندارم

اگه راهی داره یا اینکه کدمو اشتباه نوشتم بهم بگید دستور درستش چیه ؟؟؟
یا لینکی چیزی

اقا خواهشا کمک کنید مشکل از کجاست