Dim StreamReader sr as new StreamReader( Dateiname)
  try
    Dim str as string = sr.ReadLine()
    Do While Not IsNothing(str)
      arr1 = Split(str, str_delimitter)
 
      strBui.Append(arr1(PosArtBez - 1) & vbCrLf)
      strBui1.Append(arr1(PosHersteller - 1) & vbCrLf)
      strBui2.Append(arr1(PosHerstellerNr - 1) & vbCrLf)
      strBui3.Append(str & vbCrLf)
      str = sr.ReadLine()
    Loop
  Catch ex as Exception
  Finally
    sr.Close()
  End Try

strBui3.ToString()

Dim ConnectionString As String
        ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
            "Data Source=" & "E:\My Documents\TextFiles" & ";" & _
            "Extended Properties=""Text;HDR=NO;"""
 
        Dim TextConnection As New System.Data.OleDb.OleDbConnection( _
          ConnectionString)
        TextConnection.Open()
 
        Dim da As New System.Data.OleDb.OleDbDataAdapter("SELECT * FROM" & _
          "csv.txt", TextConnection)
 
        Dim ds As New DataSet("TextFiles")
        da.Fill(ds, "CSV")