Dim str_dateiname As String = frm_MainWindow.AppPath & _
  frm_MainWindow.UserListenPfad & cmb_UserListen.SelectedItem.ToString & ".tsv"
        Dim int_AnzahlSpalten As Integer = 6
        Dim chr_trennzeichen As Char = CChar(vbTab)
        Dim Felder() As String
        Dim Zeile As String
 
        Dim dt = New DataTable()
        Dim sr = My.Computer.FileSystem.OpenTextFileReader(str_dateiname, _
                        System.Text.Encoding.Default)
 
        For I As Integer = 1 To int_AnzahlSpalten
            dt.Columns.Add("Spalte " & I)       ' Spaltenüberrschriften erzeugen
        Next
 
        dt.Columns(0).ColumnName = SprachenReader.ReadString( _
          "frm_anwesenheitsliste", "clm_datum")
        dt.Columns(1).ColumnName = SprachenReader.ReadString( _
        "frm_anwesenheitsliste", "clm_rechner")
        dt.Columns(2).ColumnName = SprachenReader.ReadString( _
        "frm_anwesenheitsliste", "clm_start")
        dt.Columns(3).ColumnName = SprachenReader.ReadString( _
        "frm_anwesenheitsliste", "clm_ende")
        dt.Columns(4).ColumnName = SprachenReader.ReadString( _
        "frm_anwesenheitsliste", "clm_zeit")
        dt.Columns(5).ColumnName = SprachenReader.ReadString( _
        "frm_anwesenheitsliste", "clm_gruppe")
 
        Do While (sr.Peek > -1)                 ' Dateiende abfragen
            Zeile = sr.ReadLine                 ' Eine Datenzeile lesen
            Felder = Zeile.Split(chr_trennzeichen)  ' Splitten in Felder
            Dim dr As DataRow = dt.NewRow       ' Leere Datenzeile erstellen
            dr.ItemArray = Felder               ' In DataRow speichern
            dt.Rows.Add(dr)                     ' Felder zur Datatable 
            ' hinzufügen
        Loop
        dgv_user.DataSource = dt           ' DataTable in DataGridView zeigen