Sub tableSytles(ByVal byGrid As DataGrid)
        Dim ts As DataGridTableStyle = New DataGridTableStyle
        Dim dg As DataGridTextBoxColumn
        ts.MappingName = "Users" 'NAME_DES_DATATABLES
 
        dg = New DataGridTextBoxColumn
        dg.HeaderText = "{DEIN HEADER TEXT}"
        dg.MappingName = "Vorname" 'DIE_1.SPALTE_IM_DATATABLE
        dg.Width = 100
        ts.GridColumnStyles.Add(dg)
 
        dg = New DataGridTextBoxColumn
        dg.HeaderText = "{DEIN HEADER TEXT}"
        dg.MappingName = "Nachname" 'DIE_2.SPALTE_IM_DATATABLE
        dg.Width = 0
        ts.GridColumnStyles.Add(dg)
        'usw.
        byGrid.TableStyles.Add(ts) 'DG HINZUFÜGEN
        'WICHTIG DU MUSST ALLE SPALTEN DEFINIEREN!
    End Sub