Listview to Crystal Report using datatable

Dim ds As New Crystal_DS
        Dim DT_TAB As DataTable = ds.Tables.Add("Summary")
        If LV.Items.Count > 1 Then
            For i As Integer = 0 To LV.Items(0).SubItems.Count - 1
                Dim DCOL As New DataColumn(LV.Columns(i).Text)
                DT_TAB.Columns.Add(DCOL)
            Next
        End If
        For i As Integer = 0 To LV.Items.Count - 1
            Dim DROW As DataRow = DT_TAB.NewRow
            For j As Integer = 0 To LV.Items(i).SubItems.Count - 1
                DROW(LV.Columns(j).Text) = LV.Items(i).SubItems(j).Text
            Next
            DT_TAB.Rows.Add(DROW)
        Next
        DataGridView1.DataSource = ds.Tables("Summary")
        'ds.Tables.Add(DT_TAB)
        ds.AcceptChanges()
        Dim objRpt As New TripSheet
        Dim strReportPath As String = Application.StartupPath & "\Cry_Chart\TripSheet.rpt"
        objRpt.Load(strReportPath)
        objRpt.SetDataSource(ds.Tables("Summary"))
        CrystalReportViewer1.ReportSource = objRpt
        'CrystalReportViewer1.DataBind()