Dim rptDoc As CrystalDecisions.CrystalReports.Engine.ReportDocument rptDoc = New CrystalReport1 rptDoc.SetDataSource(DataGridView1 Form2.CrystalReportViewer1.ReportSource = rptDoc Form2.ShowDialog()