Importing a txt or csv file

To import into a datatable or dataset


Dim file As String = "Test2.txt" 
           Dim path As String = "C:\" 
           Dim ds As New DataSet 
           Dim f As System.IO.File 
           If f.Exists(path & file) Then 
              Dim ConStr As String = _ 
              "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _ 
              path & ";Extended Properties=""Text;HDR=No;FMT=Delimited\""" 
              Dim conn As New OleDb.OleDbConnection(ConStr) 
              Dim da As New OleDb.OleDbDataAdapter("Select * from " & _ 
              file, conn) 
              da.Fill(ds, "TextFile") 
          End If