Dim dgvts As New DataGridTableStyle
        Dim dgvcs As New DataGridTextBoxColumn
        With dgvcs
            .HeaderText = "Kommentar:"
            .MappingName = 4
            .ReadOnly = True
        End With
        dgvts.GridColumnStyles.Add(dgvcs)
        dgvPickliste.tablestyles.add(dgvts)'Hier ist der Fehler