[mrnooo2000]

بعد اذن الأخ الجوكر 

استخدم  هذا الكود

كود :

       Dim dt As New DataTable
       dt.Columns.Add("column1", Type.GetType("System.String"))
       dt.Columns.Add("column2", Type.GetType("System.String"))
       Dim r As DataRow
       For i = 0 To DataGridView1.Rows.Count - 1
           r = dt.NewRow
           r(0) = DataGridView1.Item(0, i).Value.ToString
           r(1) = DataGridView1.Item(1, i).Value.ToString
           dt.Rows.Add(r)
       Next
       Dim datasource As New ReportDataSource("DataSet1", dt)
       Form2.ReportViewer1.LocalReport.DataSources(0) = datasource
       Form2.ShowDialog()

لكن لاحظ أخى أننى غيرت أسما الحقول الى column1 و column1
لأن التسميات العربية تنتج أخطاء و خصوصا مع وجود المسافات 

غير الأسماء لديك بالداتا سيت و بالريبورت الى نفس الاسماء أولا