Public Function GetData(ByVal grid As DataGridView) As DataTable
 
        Dim dt As New DataTable
        For i As Integer = 0 To grid.Columns.Count - 1
            dt.Columns.Add(grid.Columns(i).Name, grid.Columns(i).ValueType)
        Next i
 
        For r As Integer = 0 To grid.Rows.Count - 1
            Dim tablerow As DataRow = dt.NewRow
            For c As Integer = 0 To grid.Columns.Count - 1
                tablerow(c) = grid(c, r)
            Next c
            dt.Rows.Add(tablerow)
        Next r
        Return dt
    End Function