With sevNAVVerkaufszeilen
        ' autom. Neuzeichnen ausschalten
        .LockUpdate True
 
        ' Recordset-Kopie erstellen
        .CreateClone = True
 
        ' Recordset zuweisen'
        .Clear True
        Set .Recordset = rsNavision
 
        ' autom. Sortierung aktivieren
        .AutoSort = True
        .Caption = rsNavision.RecordCount & " Datensätze"
        .RowHeight = 25
        .FontSize = 12
        .FontName = "Arial"
 
        .AllowEdit = True
 
        .Columns("No_").Caption = "Artikel Nr."
        .Columns("No_").Width = 1800
        .Columns("No_").LockEdit = True
 
        .Columns("Description").Caption = "Bezeichung1"
        .Columns("Description").Width = 5000
        .Columns("Description").LockEdit = True
 
        .Columns("Description 2").Caption = "Bezeichnung 2"
        .Columns("Description 2").Width = 5000
        .Columns("Description 2").LockEdit = True
 
        .ColumnAdd , "Druck", 1000, ALIGNMENT_CENTER, , TYPE_CHECKBOX, _
          ALIGNMENT_CENTER
        .Columns(5).LockEdit = False
 
        .AllowAutoColumnSizing = True
        ' Mehrfachselektion zulassen
        .AllowMultiSelect = False
        ' interaktives Ändern der Spaltenbreiten zulassen
        .AllowColumnSizing = True
        ' Drag & Drop von Spalten zulassen
        .AllowColumnReorder = True
        .FixedCol = False
         ' Caption anzeigen?
        .CaptionVisible = True
        ' autom. Neuzeichnen einschalten
        .LockUpdate False
        .Refresh
        ' 1. Zeile selektieren
        .Row = 1
 
    End With

Private Sub sevNAVVerkaufszeilen_RowLoaded(ByVal nRow As Long, Item As _
  sevDataGrid2.ListItem)
    Item.CellText("Druck") = "1"
End Sub