[عبدالرحمن بشري عمر]

هذه كود الدتا جريد فيوda = New OleDbDataAdapter("SELECT * FROM stourg;", con)

        Dim dt As New DataTable
        da.Fill(dt)
        Me.DataGridView1.DataSource = dt
هذه كود التقرير ارجو المساعدة
Dim rebor As New CrystalReport1
        rebor.SetDataSource(dt)

        Form39.CrystalReportViewer1.ReportSource = rebor

        Form39.TopMost = True

        Form39.Show()