With GridCountriesList
 
        .LockUpdate True
 
        .DataMode = Mode_Recordset
        .CreateClone = True
 
        .Caption = "Liste der gespeicherten Länder"
        .CaptionVisible = True
 
        .AllowColumnClick = True
        .AllowAutoColumnSizing = True
        .AllowColumnSizing = True
        .AllowDelete = True
        .AllowEdit = True
        .AllowMultiSelect = False
        .AllowColumnReorder = True
        .AutoSort = True
        .AutoUpdate = True
        .CheckBoxStyle = CHECKBOX_XP
        .ShowSortSymbols = True
        .AutoRefreshVScroll = False
        .ColumnHeadersVisible = True
        .ScrollBars = SB_AUTO
        .WheelMouse = True
 
        Set .Recordset = oRst
 
        'ID-Spalte und letzte 4 verbergen
        .Columns(1).Visible = False
        For lCount = .Cols To .Cols - 3 Step -1
            .Columns(lngCount).Visible = False
        Next lCount
 
        .DoColumnAutoSize 2        'hier geht nix
        .DoColumnAutoSize 3
 
        .Columns(2).Width = 2200 'Deshalb so...
        .Columns(3).Width = 2000
 
        .LockUpdate False
        .Refresh