strSQL = "SELECT ............
                "Lagerdetail_K_US, " & _
                "Lagerdetail_K_Z15, " & _
                "Lagerdetail_K_Z25, " & _
                "Lagerdetail_K_Z35, " & _
                "Lagerdetail_K_Aubie, " & _
                "Lagerdetail_K_Haerte, " & _
                "Lagerdetail_K_BZ, " & _
                "Lagerdetail_GeStr, Lagerdetail_Bemerkung " & _
            "FROM qry_Lagerbestand"
 
 
 
  With Grid1
    ' autom. Neuzeichnen ausschalten
    .LockUpdate True
 
    ' Recordset-Kopie erstellen
    .CreateClone = False
 
    ' Recordset zuweisen
    .Clear True
 
    .DataMode = Mode_List
 
    ' Spalten hinzufügen
    .ColumnAdd .............
    .ColumnAdd "Lagerdetail_K_US", "US", 800, , , TYPE_CHECKBOX, , 2
    .ColumnAdd "Lagerdetail_K_Z15", "Z15", 800, , , TYPE_CHECKBOX, , 2
    .ColumnAdd "Lagerdetail_K_Z25", "Z25", 800, , , TYPE_CHECKBOX, , 2
    .ColumnAdd "Lagerdetail_K_Z35", "Z35", 800, , , TYPE_CHECKBOX, , 2
    .ColumnAdd "Lagerdetail_K_Aubie", "Aubie", 800
    .ColumnAdd "Lagerdetail_K_Haerte", "Härte", 800, , , TYPE_CHECKBOX, , 2
    .ColumnAdd "Lagerdetail_K_BZ", "KBZ", 800, , , TYPE_CHECKBOX, , 2
    .ColumnAdd "Lagerdetail_GeStr", "GeStr", 800, , , TYPE_CHECKBOX, , 2
    .ColumnAdd "Lagerdetail_Bemerkung", "Bemerkung", 1500
 
    ' Datensatzgruppe auf Tabelle setzen.
    Set rst = CurrentDbc.OpenRecordset(strSQL & " WHERE Lagerdetail_AbmessungNr" & _
      "= " & ReadAbmessungID)
 
 
    Do Until rst.EOF
        Set oItem = .AddItem("")
            With oItem
                .CellText...............
                .CellText("Lagerdetail_K_US") = rst.Fields(16)
                .CellText("Lagerdetail_K_Z15") = rst.Fields(17)
                .CellText("Lagerdetail_K_Z25") = rst.Fields(18)
                .CellText("Lagerdetail_K_Z35") = rst.Fields(19)
                .CellText("Lagerdetail_K_Aubie") = rst.Fields(20)
                .CellText("Lagerdetail_K_Haerte") = rst.Fields(21)
                .CellText("Lagerdetail_K_BZ") = rst.Fields(22)
                .CellText("Lagerdetail_GeStr") = rst.Fields(23)
                .CellText("Lagerdetail_Bemerkung") = rst.Fields(24)
            End With
 
        rst.MoveNext  ' Zum nächsten Datensatz gehen.
    Loop
 
    ' autom. Sortierung aktivieren
    .AutoSort = True
 
    ' Mehrfachselektion zulassen
    .AllowMultiSelect = False
 
    ' interaktives Hinzufügen, Ändern und Löschen ermöglichen
    .AllowEdit = True
    .AutoUpdate = True
    .AllowDelete = False
 
    ' interaktives Ändern der Spaltenbreiten zulassen
    .AllowColumnSizing = True
 
    ' Drag & Drop von Spalten zulassen
    .AllowColumnReorder = False
 
    ' autom. Neuzeichnen einschalten
    .LockUpdate False
    .Refresh
 
    ' 1. Zeile selektieren
    '.Row = 1
 
    ' ursprüngliches Recordset zerstören
    rst.Close
    Set rst = Nothing
  End With