[هيثم_هيثم]

كود :

Dim rep As New report1
       (rep.SetDataSource(dvgstud.DataSource
       Form2.CrystalReportViewer1.ReportSource = rep
       ()Form2.Show

مع تغيير report1 الي اسم التقرير الخاص بك
وتغيير dvgstud الي اسم الداتا جريد فيو الموجود بمشروعك

---

كود :

Dim rep As New report1
       rep.SetDataSource(dvgstud.DataSource)
       Form2.CrystalReportViewer1.ReportSource = rep
       Form2.Show()