اشكال در لود گزارش كريستال و وي بي

[sh2007]

سلام دوستان
من با كريستال 10 يه برنامه كوچيك نوشتم و براي لود كرن از كد زير استفاده كردم
Dim crApp As CRAXDRT.Application
Dim crRept As CRAXDRT.Report
Dim crDbTab As CRAXDRT.DatabaseTable

Private Sub Command1_Click()
Set crRept = crApp.OpenReport(App.Path & "\" & "Report1.rpt")
CrystalActiveXReportViewer1.ReportSource = crRept
CrystalActiveXReportViewer1.ViewReport
crRept.DiscardSavedData

End Sub

اما خطايي كه مي دهد روي خطي است كه قرمز كرده ام و مي گويد ست نشده برنامه هم ضميمه كرده ام دوستان لطف كنند منو راهنمائي كنند

[mpmsoft]

Dim crApp As New CRAXDRT.Application
Dim crRept As New CRAXDRT.Report
Set crRept = crApp.OpenReport(App.Path & "\Report1.rpt")

[sh2007]

درست شد خيلي ممنون اما سرعت بارگذاري خيلي كمه دليل چيه اصلا به صرفه مي باشد اين روش يا نه؟ براي برنامه هاي مهم
منتظر راهنمائي شما دوست عزيز هستم

[sh2007]

دوستان من فكر مي كنم سرعت بارگذاري كريستال 10 در وي بي 6 كمه حالا دو حالت داره يا پردازش سيستم يا خود كريستال و وي بي
منتظر اظهار نظر اهل فن هستيم:تشویق::تشویق::تشویق::ت� �ویق: