Private Sub CsvHinzu(ByVal f As String)
 
If System.IO.File.Exists(f) = False Then
 
            MsgBox("Datei ist nicht vorhanden !")
            Return
 
        End If
 
 
        Dim tr As System.IO.TextReader
        tr = New System.IO.StreamReader(f)
 
        Dim sZeile As String
        sZeile = ""
 
        Dim sammlung As Dictionary(Of String, Int32)
        sammlung = New Dictionary(Of String, Int32)()
 
        Dim lToken() As String
        Dim sTemp As String
 
        MsgBox("Anfang des Einlesens")
 
        sZeile = tr.ReadLine()
        lToken = Split(sZeile, ";")
 
        For i As Integer = 0 To lToken.Length - 3
            sTemp = Replace(lToken(i), """"; "")
        Next
 
        While Not sZeile Is Nothing
            If sammlung.ContainsKey(sZeile) Then
                sammlung(sZeile) += 1
            Else
                sammlung.Add(sZeile, 1)
 
            End If
            sZeile = tr.ReadLine()
 
        End While
 
        Dim reader As OleDbDataReader
        Dim cmd As OleDbCommand
        Dim vorhanden As Boolean = True
        Dim typ As Integer = 1
 
        cmd = New OleDbCommand("", _conn)
        reader = Nothing