Dim ds As DsRep = New DsRep()
Dim total As Int16 = frmServerViewReports.DataGridView1.Rows.Count
Dim i As Int16
Do Until i = (total - 1)
Dim a() As String = {frmServerViewReports.DataGridView1(0, i).Value.ToString, frmServerViewReports.DataGridView1(1, i).Value.ToString, frmServerViewReports.DataGridView1(2, i).Value.ToString, frmServerViewReports.DataGridView1(3, i).Value.ToString, frmServerViewReports.DataGridView1(4, i).Value.ToString}
ds.Tables(0).Rows.Add(a)
i = i + 1
Loop
Dim obj As New crRep
obj.SetDataSource(ds)
CrystalReportViewer1.ReportSource = obj
Use this to get the proper output