Option Explicit
 
' Collection-Objekt für CheckBox-Status
Private colCheckBox As Collection

Private Sub Form_Load()
  Set colCheckBox = New Collection
  ...
  With Grid1
    ...
    Set .Recordset = ...
 
    ' zusätzliche CheckBox-Spalte
    With .ColumnAdd("cb", "", 300, ALIGNMENT_CENTER, , TYPE_CHECKBOX)
      .Position = 1
    End With
    ...
  End With
End Sub

Private Sub Grid1_RowLoaded(ByVal nRow As Long, Item As ListItem)
  With Item
    ' CheckBox-Status anzeigen
    .CellText("cb") = IsInCollection(colCheckBox, .CellText("ID"))
  End With
End Sub

Private Sub Grid1_BeforeUpdate(ByVal nRow As Long, ByVal nCol As Long, _
  sText As String, iCancel As Integer)
  With Grid1
    If nCol = .GetCol("cb") Then
      ' CheckBox-Status speichern
      If CBool(sText) = True Then
        If Not IsInCollection(colCheckBox, .Text(nRow, "ID")) Then
          colCheckBox.Add "1", .Text(nRow, "ID")
        End If
      Else
        If IsInCollection(colCheckBox, .Text(nRow, "ID")) Then
          colCheckBox.Remove .Text(nRow, "ID")
        End If
      End If
    End If
  End With
End Sub

' Hilfsfunktion
Public Function IsInCollection( _
  ByRef Col As Collection, _
  ByRef elem As String) As Boolean
 
  On Error Resume Next
  IsInCollection = Not IsEmpty(Col(elem))
  On Error GoTo 0
End Function

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de