Dim r As MsgBoxResult, l As String
  Try
     Using sr As New IO.StreamReader(fn)
        l = sr.ReadLine
        sr.Close()
        r = MsgBox(fn & vbCrLf & vbCrLf & l & vbCrLf & vbCrLf & _
              "Enthält die erste Zeile Spaltenbezeichner", _
                MsgBoxStyle.YesNoCancel, "Text-Import")
        If r = vbCancel Then Exit Sub
     End Using
 
     Dim trenner As String = _
        InputBox(fn & vbCrLf & vbCrLf & L & vbCrLf & vbCrLf & _
         "Feld-Trennzeichen in der Datei", "Text-Import")
 
     Dim path As String = IO.Path.GetDirectoryName(fn)
     Dim hdr As String = "TRUE"
     If r = MsgBoxResult.No Then hdr = "FALSE"
 
     '=======================================================
     'Erstellung eines Schema.Ini-Files für die Deklarationen: Trennzeichen, 
     ' Headerzeile 
     Dim sf As String = IO.Path.Combine(path, "schema.ini")
     If IO.File.Exists(sf) Then
        If MsgBox("Bestehendes Schemafile löschen?", _
           MsgBoxStyle.Question Or MsgBoxStyle.OkCancel, "Text-Import") = _
           MsgBoxResult.Cancel Then Exit Sub
     End If
 
     IO.File.Delete(sf)
     Dim sl(3) As String
     sl(0) = "[" & IO.Path.GetFileName(fn) & "]"
     sl(1) = "ColNameHeader=" & hdr
     sl(2) = "Format=Delimited(" & trenner & ")"
     sl(3) = "Characterset=ANSI"
     IO.File.WriteAllLines(sf, sl)
     '===================================================
 
     Dim extprop As String = "Text;" 
     Dim conn As New System.Data.OleDb.OleDbConnection( _
        "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & path & _
        ";Extended Properties=" & Chr(34) & extprop & Chr(34) & ";")
 
     Dim cmd As New System.Data.OleDb.OleDbCommand _
       ("SELECT * FROM " & IO.Path.GetFileName(fn), conn)
 
     Dim da As New System.Data.OleDb.OleDbDataAdapter(cmd)
     Dim dt As New DataTable
 
     da.Fill(dt)
 
     IO.File.Delete(sf) 'Schema.Ini löschen
 
  Catch ex As Exception
     MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Text-Import")
  End Try