Печать datagridview с помощью crystalreport in VB.NET(после поиска доступа к базе данных)

---

печать после поиска банка доступа

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim dt As New DataTable
        With dt
            .Columns.Add("ID")
            .Columns.Add("tarikh")
            .Columns.Add("shift")
            .Columns.Add("kartex")
            .Columns.Add("tarh")
            .Columns.Add("rang")
        End With
        For Each dr As DataGridViewRow In Me.dataGridView1.Rows
            dt.Rows.Add(dr.Cells("ID").Value, dr.Cells("tarikh").Value, dr.Cells("shift").Value, dr.Cells("kartex").Value, dr.Cells("tarh").Value, dr.Cells("rang").Value)

        Next
        Dim rptdoc As CrystalDecisions.CrystalReports.Engine.ReportDocument
        rptdoc = New CrystalReport1
        rptdoc.SetDataSource(dt)
        frm_print.CrystalReportViewer1.ReportSource = rptdoc
        frm_print.ShowDialog()

    End Sub

error : column named id cannot be found
End Class

Что я уже пробовал:

Please help me thank my friends

---