VBA ADODB recordset opdaterer ikke Access 2007

Forsøger at lave en formular der tager oplysninger og skriver ned i en ny linje i en tabel. Hvorfor virker det her ikke ?

Ved at steppe igennem med F8 tasten kan jeg se at den nye række bliver oprettet og der bliver skrevet data i den. Jeg kan finde nøgleværdien til senere brug. Men når det hele lukker er der ikke nye data i tabellen ?

Tabellen er linket fra en hovded database.


Private Sub cmdNewOwner_Click()
    Dim NewOwnerKey As Long
    Dim Cn As adodb.Connection
    Dim rs As adodb.Recordset
    Set Cn = CurrentProject.Connection
    Set rs = New adodb.Recordset

    rs.Open "tblOwner", Cn, adOpenDynamic, adLockPessimistic
   
    rs.AddNew

    rs!txtNameFirst = Me!txtNameFirst
    rs!txtNameLast = Me!txtNameLast
    rs!txtAdress1 = Me!txtAdress1
    rs!txtAdress2 = Me!txtAdress2
    rs!txtPOBox = Me!txtPOBox
    rs!txtZip = Me!cmbZip
    rs!txtPhoneHome = Me!txtPhoneHome
    rs!txtPhoneCell = Me!txtPhoneCell
    rs!txtPhoneForeign = Me!txtPhoneForeign
    rs!txtEMail = Me!txtEMail
    rs!txtCPR = Me!txtCPR
    rs.Update
       
NewOwnerKey = rs!KeyOwner
       
rs.Close
Cn.Close

Set rs = Nothing
Set Cn = Nothing

DoCmd.Close

On Error Resume Next
DoCmd.OpenForm "frmOwner"
Forms![frmowner].SetFocus
Forms![frmowner].Requery
DoCmd.SearchForRecord , "", acFirst, "[KeyOwner] =" & NewOwnerKey
End Sub