نقل قول نوشته شده توسط mah.yar مشاهده تاپیک
دکتون گرم. کار میکنهو جواب میده.

البته باید دستور زیر رو اخرش بنویسی
  CrystalReportViewer1.ReportSource = crpt


یعنی به صورت زیر
Dim crpt As New CrystalReport1

        crpt.Database.Tables.Item(0).Location = Application.StartupPath & "\test.mdb"

     CrystalReportViewer1.ReportSource = crpt


از تلاش شما صمیمانه سپاسگذارم.
خواهش می کنم قابلی نداشت باعث شد خودم یه چیزی یاد بگیرم

در ضمن کدی که گفتی باید اضافه بشه اخرش رو فراموش کردم بنویسم

تست کن ببین رو کامپیوتر دیگه هم جواب می ده با این روش یا نه به من هم بگو