دکتون گرم. کار میکنهو جواب میده.

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


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

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

     CrystalReportViewer1.ReportSource = crpt


از تلاش شما صمیمانه سپاسگذارم.