Dim cmd As OleDbCommand = New OleDbCommand("SELECT * FROM [" + Path.GetFileName(FileName) + "]", cn)

Private Sub GetData(ByRef dt As DataTable, FilePath As String, Optional ByVal Header As Boolean = True)
    Dim Fields() As String
    Dim Start As Integer = CInt(Header) * -1
    If Not File.Exists(FilePath) Then
        Return
    End If
    dt.Clear()
    Dim Lines() As String = File.ReadAllLines(FilePath)
    If CBool(Start) AndAlso dt.Columns.Count = 0 Then
        Lines(0) = Lines(0).Replace(Chr(34), "")
        For Each h As String In Lines(0).Split(",")
            dt.Columns.Add(h)
        Next
    End If
    For I = Start To Lines.Count - 1
        Fields = Lines(I).Split(",")
        dt.Rows.Add(Fields)
    Next
End Sub