Private Sub myFaktListe_OnStore(ByVal Fakt As BcFakt, ByVal isNew As Boolean)
    With LV(1)
        If isNew Then
            FillListItem Fakt, Nothing
        Else
            FillListItem Fakt, .SelectedItem
        End If
        Set .SelectedItem = .ListItems("#" & Fakt.id)
    End With
End Sub

Private Sub myFaktListe_OnStore(ByVal Fakt As BcFakt, ByVal isNew As Boolean)
    With Grid2
        If isNew Then
            FillListItem Fakt, Nothing
        Else
            FillListItem Fakt, [u].SelectedItem ???
        End If
        Set .SelectedItem = ?????
    End With
End Sub

sID = Fakt.id
Set oItem = Grid2.AddItem(sHelp, , , sID)
anstatt von:
Set oItem = Grid2.AddItem(sHelp)

Private Sub FillListItem(ByVal Fakt As BcFakt, ByVal LI As ListItem)
.....
    With LV(1)
        If LI Is Nothing Then
            [u]Set LI = .ListItems.Add(, "#" & Fakt.id, Fakt.Jahr)
        Else
            [u]LI.Text = Fakt.Jahr
        End If
        Set irec = Fakt
        For C = 2 To .ColumnHeaders.Count
            fieldname = .ColumnHeaders(C).Key
            Select Case fieldname
            ....
            Case Else
                LI.SubItems(C - 1) = "" & irec.Field(fieldname)
            End Select
        Next
....

Private Sub FillListItem(ByVal Fakt As BcFakt, ByVal LI As ListItem)
    Dim oItem   As sevDataGrid2.ListItem
    Dim sHelp   As String
    Dim sID     As String
 
    sID = Fakt.id
    sHelp = sID & vbTab
    sHelp = sHelp & Fakt.FaktNo & vbTab
    ....
    Set oItem = Grid2.AddItem(sHelp, , , sID) '< ergibt den Fehler: 
    ' Schlüssel ist in dieser Auflistung nicht eindeutig!