بانک رمز دار و کریستال ریپورت و VB6

[nader.golab]

سلام به دوستان عزیز. برنامه ای درست کردم که روی سیستم خودم مشکلی نداشت ولی حالا که سیستم عامل رو عوض کردم وحتی ستاپش رو سیستم طرف نصب می کنم پیغام می ده Filed to Open Document از طرف کریستال ریپورت دیزاینر می ده. همه Dll ها نصبه ادرس پویا هم درست دادم.
نمی دونم چی کار باید بکنم.حتی کیرستال ریپورتم که نصب می کنم این مشکل رو بر طرف نمی کنه ممنون می شم از دوستان اگه این مشکل رو حل کنن.
اینم کدی که نوشتم.


Private Sub Form_Load()


Set crRept = crAPP.OpenReport(App.Path & "\DarS.Rpt")
For Each crDBTab In crRept.Database.Tables
crDBTab.ConnectionProperties.Item("Data Source") = App.Path & "\data\Data.bit"
crDBTab.ConnectionProperties.Item("Jet DataBase Password") = "585858"
Next
CrystalReport.ReportSource = crRept
CrystalReport.ViewReport
crRept.DiscardSavedData

End Subولی این خطا رو از این کدش می گیره و می گه نمی تونی Set کنی


Set crRept = crAPP.OpenReport(App.Path & "\DarS.Rpt")