Dim connectionStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data" & _
          "Source=" & directory & ";Extended" & _
          "Properties=""text;HDR=YES;FMT=Delimited"""
        Dim dataSet = New DataSet
        Dim connection As New OleDb.OleDbConnection(connectionStr)
        Dim dataAdapter As New OleDb.OleDbDataAdapter("select * from [" & _
          filename.csv & "]", connection)
        dataAdapter.Fill(dataSet)
        connection.Close()