Dublerede værdier - hænger

Jeg har en formular hvor der tjekkes for dublerede værdier sådan:
Private Sub Felt_BeforeUpdate(Cancel as Integer)
  If Me.newrecord then
      If DCount(\"*\", \"TABELNAVN\", Felt =  & Me!Felt) > 0 then
        Msgbox \"Posten findes i forvejen!\",vbcritical
        Docmd.CancelEvent
        exit sub
      end if
  end if
end sub

-Men efter at have sagtOK til msg-boxen kommer fejlen igen selvom jeg taster en ny værdi ind i feltet.
Der er tale om en \"redigering\" altså ikke \"Ny Post\"

mvh