With grid_types
        .LockUpdate True
        ' Icon-Liste erstellen
        .Icons.Add LoadPicture(App.Path & "\icons\filter.ico")
        ' Filterzeile oberhalb der Spaltenköpfe anzeigen
        .FilterAlign = FILTER_ALIGN_TOP
        .FilterForeColorDisabled = vbGrayText
        .FilterVisible = False
        .AllowFilterEdit = True
        .FilterMoveTAB = False
        ' Recordset-Kopie erstellen
        .CreateClone = True
        ' Recordset zuweisen
        .Clear True
        Set .Recordset = rs
        'Spaltentypen und -bezeichnung festlegen
        '.Columns(3).ColType = TYPE_CHECKBOX
        .Columns(1).Visible = False 'main ID
        .Columns(2).Caption = "Bezeichnung"
        .Columns(1).LockEdit = True
        .Columns(2).LockEdit = True
        .ColumnHeaderFont.Bold = True
        '.Caption = "Datensätze: " & rs.RecordCount
        ' autom. Sortierung aktivieren
        .AutoSort = True
        ' interaktives Hinzufügen, Ändern und Löschen ermöglichen / verhindern
        .AllowEdit = True
        .AutoUpdate = True
        .AllowDelete = False
        ' interaktives Ändern der Spaltenbreiten zulassen
        .AllowColumnSizing = True
        ' Drag & Drop von Spalten zulassen
        .AllowColumnReorder = True
        .LockUpdate False
        .Refresh
        ' Ungebundene Spalte für die Checkbox zur Anzeige hinzufügen
        With .ColumnAdd("show", "zeigen")
            .ColType = TYPE_CHECKBOX
            .Position = 3
            .LockEdit = False
        End With
 
        .Columns(2).AdjustWidthToGridSize
        rs.Close
        Set rs = Nothing
 
    End With