Dim dt as DataTable
Dim cnstr As String = "Driver={Microsoft Text Driver (*.txt; *.csv)};DBQ=" + _
  path + "\"
Dim cn As New System.Data.Odbc.OdbcConnection(cnstr)
Dim sql As String = "SELECT * FROM " + filename + ""
Dim da As New System.Data.Odbc.OdbcDataAdapter(sql, cn)
dt = New DataTable
da.Fill(dt)