ADO addnew, hvad går galt.

Dim strEmne As String
    strEmne = InputBox("Udfyld emne for pågældende Hitorik, bemærk, det skrevne kan ikke slettess", "Opret Historik")
   
    Dim rst As New ADODB.Recordset
   
    rst.Open "tblHistorik-Rnov7400", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
    rst.AddNew
    rst("Ejendomsnummer") = Me.Ejendomsnummer
    rst("Emne") = strEmne
    rst.Update
    rst.Close
    Set rst = Nothing

Jeg får en besked og sql sætning forkert??