Update DAO et listview

Merci à l'équipe

Mes cher(e)s ami(e)s voici mon problème

J'ai une base de donnée que j'arrive pas a modifier un enregistrement particulier selectionné dans un listview, des queje clique sur modifier seul le premier enregistrement afficher dans le listview ce modifier par défaut, donc je n'arrive pas a modifier l'enregistrement séléctionné dans le listview, voici mon code :

Private Sub lvRecNames_ItemClick(ByVal Item As MSComctlLib.ListItem) 'Fonction correcte
   ItemIndex = Item.Index
   txtSurname.Text = lvRecNames.SelectedItem.Text
   txtForename.Text = lvRecNames.SelectedItem.SubItems(1)
   txtPhone.Text = lvRecNames.SelectedItem.SubItems(2)
   Text1.Text = lvRecNames.SelectedItem.Tag
    If lvRecNames.ListItems.Count < 1 Then Exit Sub
End Sub

Private Sub CmdEdit_Click()
   Dim db As Database
   Dim rs As Recordset
I   f txtSurname.Text = "" Then MsgBox ("Please fill in the name first!"), vbOKOnly + vbCritical, "Error" _
   : Exit Sub

   If txtForename.Text = "" Then MsgBox ("Please fill in the Forename first!"), vbOKOnly + vbCritical, "Error" _
   : Exit Sub

   If txtPhone.Text = "" Then MsgBox ("Please fill in the telephone number first!"), vbOKOnly + vbCritical,    "Error" _
   : Exit Sub

Set db = OpenDatabase(App.Path + "\Rhazi.mdb")
Set rs = db.OpenRecordset("People")
With rs
    .Edit
                rs![Name] = IIf(IsNull(txtSurname.Text), "", (txtSurname.Text))
                rs![Address] = IIf(IsNull(txtForename.Text), "", (txtForename.Text))
                rs![Telephone] = IIf(IsNull(txtPhone.Text), "", (txtPhone.Text))
        .Update
End With

MsgBox ("The new record is modified to the database!"), vbOKOnly + vbInformation, "Modified"
rs.Close
db.Close
Call cmdRead_Click

End Sub

merci de votre aide.