Checkbox liste aus relationaler Datenbank

Private Sub Form_AfterUpdate()
    'MsgBox "after update"
    
    'MsgBox "Form After Insert - adrID: " & Me.adr_ID

    Dim rs As Recordset
    Dim strSQL As String
    
    'zuerst alle Einträge in tblAdresseAdrGroup mit der adr_FID löschen
    strSQL = "DELETE * FROM tblAdresseAdrGroup WHERE adrAdrGrp_adr_FID = " & Me.adr_ID
    DoCmd.RunSQL strSQL

    'für jeden eintrag in der lstGrp prüfen, ob selektiert. Wenn ja, dann neuer eintrag in tblAdresseAdrGroup
    For i = 0 To Me.lstGrp.ListCount - 1
        'MsgBox lstGrp.Column(0, i) & " - " & lstGrp.Selected(i) '-1 = selected / 0 = unselected

        If lstGrp.Selected(i) = -1 Then
            'MsgBox "Selected: " & lstGrp.Column(0, i) & " - " & lstGrp.Column(1, i)
            strSQL = "INSERT INTO tblAdresseAdrGroup (adrAdrGrp_adr_FID, adrAdrGrp_adrGrp_FID) VALUES (" & Me.adr_ID & ", " & Me.lstGrp.Column(0, i) & ")"
            DoCmd.RunSQL strSQL
        End If


    Next i
End Sub

Private Sub Form_BeforeUpdate(Cancel As Integer)
    'wenn etwas geändert hat, wird adr_LastChange auf jetzt gesetzt
    Me.adr_LastChange.Value = DateValue(Now) & " " & TimeValue(Now)
End Sub

Private Sub Form_Current()
    'Me.adr_LastChange.Value = DateValue(Now) & " " & TimeValue(Now)
    
    Dim rs As Recordset
    Dim strSQL As String
    
    'Alle Elemente in der Listbox deaktivieren
    For i = 0 To lstGrp.ListCount - 1
        lstGrp.Selected(i) = False
    Next i
    
    'Auslesen der kombis die in Ausgleichstabelle tblAdresseAdrGroup sind
    If adr_ID <> "" Then
        strSQL = "SELECT * FROM tblAdresseAdrGroup WHERE adrAdrGrp_adr_FID = " & Me.adr_ID
        Set rs = CurrentDb.OpenRecordset(strSQL, dbOpenDynaset)
        
        'Vorselektion der bereits ausgewählten Gruppen
        Do While Not rs.EOF
            
            For i = 0 To lstGrp.ListCount - 1
                Dim lstGrpIndex As Integer
                Dim adrGrpFID As Integer
                
                lstGrpIndex = Me.lstGrp.Column(0, i)
                adrGrpFID = rs!adrAdrGrp_adrGrp_FID
                
                If lstGrpIndex = adrGrpFID Then
                    Me.lstGrp.Selected(i) = True
                End If
                
            Next i
            
            rs.MoveNext
        Loop
        
        rs.Close
        Set rs = Nothing
    End If
End Sub

Private Sub lstGrp_Click()
    'wenn in lstGrp etwas geändert wird, dann wird LastChange auf jetzt gesetzt
    Me.adr_LastChange.Value = DateValue(Now) & " " & TimeValue(Now)
End Sub