Siz henüz bir cevap yazmadınız ama ben yine de istediğiniz şekilde çalışan örneği gönderiyorum.
Dediğim gibi kisiler tablosuna kisiid adında bir kimlik alanı ekledim ve listview'e bu alanı da ilave ettim.
Ayrıca tabloda zaten secili alanları doldururken işaretlemesi icin kod ilave ettim.
Kod:
If rs!secim = True Then
ListView1.ListItems(lstItem.Index).Checked = True
Else
ListView1.ListItems(lstItem.Index).Checked = False
End If
Kod:
Private Sub ListView1_ItemCheck(ByVal Item As Object)
CurrentDb.Execute "Update Kisiler Set secim=" & ListView1.ListItems(Item.Index).Checked & " Where Kisiid=" & Item
End Sub