Dim sr1 = My.Computer.FileSystem.OpenTextFileReader(csv_filename1, _
                            System.Text.Encoding.Default)
 
        If IsNothing(sr1) Then
            Exit Sub
        End If
 
        If System.IO.File.Exists(csv_filename1) = True Then
 
            Zeile = sr1.ReadLine
            Felder = Zeile.Split(TRENNZEICHEN)
            For Each str_value As String In Felder
                table1.Columns.Add(str_value.Trim())
            Next
            table1.PrimaryKey = New DataColumn() {table1.Columns(0)}
            Do While (sr1.Peek > -1)
                Zeile = sr1.ReadLine
                Felder = Zeile.Split(TRENNZEICHEN)
                table1.Rows.Add(Felder)
            Loop
        End If

?Ein Haus ohne B?cher ist arm, auch wenn sch?ne Teppiche seinen Boden und kostbare Tapeten und Bilder die W?nde bedecken.? (Hermann Hesse)