Function Init_Grid()
  Set dbs = CurrentDb
  Set rst = dbs.OpenRecordset("SELECT * FROM qryLisBestellungen_ACT")
 
  With GridStammdaten
    'Eigenschaften des Grids
    .FilterAlign = FILTER_ALIGN_TOP
    .FilterVisible = True
    .FilterBackColor = strFilterBackColor
    .FilterBackColorDisabled = strFilterBackColorDisabled
    .FilterForeColor = strFilterForeColor
    .FilterForeColorDisabled = strFilterForeColorDisabled
    .BackColorOdd = strBackColorOdd
    .LockUpdate True
    .FilterAlign = FILTER_ALIGN_TOP
    .FilterForeColorDisabled = vbGrayText
    .FilterVisible = True
    .AllowFilterEdit = True
    .FilterMoveTAB = False
    .AllowColumnClick = True
    .AllowColumnSizing = True
    .AllowDelete = False
    .AllowEdit = False
    .AllowMultiSelect = True
    .AllowColumnReorder = True
    .AutoSort = True
    .AutoUpdate = True
    .AutoRedraw = True
    .CheckBoxStyle = 2 ' XP-Style
    .ShowSortSymbols = True
    .Caption = "My New sevDataGrid :-)"
    .CaptionFont.Name = "Tahoma"
    .CaptionFont.Bold = True
    .CaptionFont.Size = 10
    .ColumnHeaderFont.Name = "Tahoma"
    .Font.Name = "Tahoma"
    .FooterFont.Name = "Tahoma"
    .FilterFont.Name = "Tahoma"
 
    ' Recordset zuweisen
    .CreateClone = True
    Set .Recordset = rst
 
    .Columns(1).Visible = False
 
    .Columns(2).Width = 900
    .Columns(2).Caption = "Bst-Nr"
 
    .Columns(3).Width = 1300
    .Columns(3).Caption = "Artikel-Nr"
 
    .Columns(4).Width = 3200
    .Columns(4).Caption = "Artikel-Bezeichnung"
 
    .Columns(5).Width = 1000
    .Columns(5).Caption = "Menge"
 
    .Columns(6).Width = 1000
    .Columns(6).Caption = "L-Nr"
 
    .Columns(7).Width = 1500
    .Columns(7).Caption = "L-Name"
 
    .Columns(8).Width = 1500
    .Columns(8).Caption = "L-Ort"
 
    .Columns(9).Width = 1500
    .Columns(9).Caption = "SB"
 
    .Columns(10).Width = 1000
    .Columns(10).Caption = "Termin"
 
    .Columns(11).Visible = False
 
    .Columns(12).Visible = False
 
    .Columns(13).Visible = False
 
    .Columns(14).Visible = False
 
    .Columns(15).Visible = False
 
    .Columns(16).Width = 1500
    .Columns(16).Caption = "F-Status"
 
    .Columns(17).Visible = False
 
    ' Nach PNR sortieren
    .DoSort "A1", 1
 
    ' Filterzeile
    For i = 1 To .Cols
      .Columns(i).FilterShowDisabled = True
    Next i
 
    ' Breite der feststehenden Spalte
    .FixedColWidth = 600
 
    ' Wheelmaus-Unterstützung aktivieren
    .WheelMouse = True
 
    ' Neuzeichnen des DataGrids wieder aktivieren
    .LockUpdate False
    .Refresh
    .Row = 1
  End With
End Function

I'm not a role-model for your life!