Opdatere en data i en tabel i access fra et excel regneark

Hej,

Har lige et lille problem, som jeg håber I har en løsning på.

Jeg har en tabel som indeholde persondata (Idnr, navn adresse, køn fødseldato, bemærkning).

I excel har jeg lavet en formular, som automatiskt via en knap opretter en ny person i access. Det virker ! (se koden)

Private Sub CommandButton1_Click()
On Error GoTo Err_commandbutton1_Click

    Dim stAppName As String
Dim db As Database
Dim rs As Recordset
Dim rs1 As Recordset
'Åbn et link til accessdatabasen
Set db = OpenDatabase("C:\person.mdb")
'åbn kanal til tabellen testtabellen
Set rs = db.OpenRecordset(Name:="personopl",Type:=dbOpenDynaset)
'indsæt

With rs
If Range("H5").Value = "x" Then
.AddNew
.Fields("idnr").Value = Range("aw19").Value
.Fields("navn").Value = Range("K9").Value
.Fields("adresse").Value = Range("K11").Value
.Fields("fødselsdato").Value = Range("K12").Value
.Fields("bemærkning").Value = Range("K13").Value
.Update

Men hvis jeg nu ønsker at opdatere feltet bemærkning via excel......... hvordan gør jeg det???

Jeg har prøvet at bruge:
If Range("Z5").Value = "x" Then
.Edit
.Fields("idnr").Value = Range("aw19").Value
.Fields("bæmærkning").Value = Range("K13").Value
.Update
End If

Men så går den bare ind og overskriver den første recordet i tabellen ..???

Hjælp...


Hilsen

Kenneth