Fejl: Id mangler

Når jeg kører dette script, så fortæller den mig, at jeg ikke må lade den primære nøjle stå tom, men værdien heri står til autonummerering. 

Dim response As String, rs As Recordset, dbs As Database
Set dbs = CurrentDb
Set rs = dbs.OpenRecordset("TblAdr ", dbOpenDynaset)

response = MsgBox("Tilføj?", vbOKCancel)
If response = vbOK Then

rs.AddNew
rs("Fornavn") = "dfaf"
rs.Update

rs.Close
Set rs = Nothing