Opdateringer en tabel i access fra Excel

Hej,

Jeg er stødt ind i et lille problem, håber i kan hjælpe mig.

Jeg har et regneark, hvor du ved at klikke på en knap kan overføre data over i en Access tabel. Mit problemer er ikke at overfører - MEN at opdatere en tabel fra excel.

Har Prøvet med ".edit" (se nedenfor) med den siger at den ikke kan opdater pga. at der vil være dubletter.
feltet "ident" er primærnøgle

Er der nogle som ved hvordan jeg kan løse det?

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:\base\Testbase.mdb")
'åbn kanal til tabellen testtabellen
Set rs = db.OpenRecordset(Name:="A", Type:=dbOpenDynaset)
Set rs1 = db.OpenRecordset(Name:="B", Type:=dbOpenDynaset)
Set rs2 = db.OpenRecordset(Name:="C", Type:=dbOpenDynaset)

'indsæt

With rs
If Range("H5").Value = "x" Then
.AddNew
.Fields("Fornavn").Value = Range("K9").Value
.Fields("Stilling").Value = Range("K10").Value
.Fields("Sted").Value = Range("K11").Value
.Fields("Stedtlf").Value = Range("AS11").Value
.Fields("Ident").Value = Range("AW19").Value
.Fields("ID").Value = Range("AW19").Value
.Update

End If
If Range("Z5").Value = "x" Then
.Edit
.Fields("Stilling").Value = Range("K10").Value
.Fields("Sted").Value = Range("K11").Value
.Fields("Stedtlf").Value = Range("AS11").Value
.Fields("Ident").Value = Range("AW19").Value
.Update
End If

End With