deaktiverer automeddelelse

Jeg har på mit datofelt i formularen lagt en inputmaske samt at værdien maks må være dagsdato, i tilfælde af overtrædelse har jeg lavet en Msgbox som også kommer men efter at jeg har kvitteret for denne kommer der en automeddelelse fra Databasen om at \"værdien i feltet ikke overholder ikke valideringsreglen for posten eller feltet.

kode der relaterer til dato feltet
Private Sub dato_GotFocus()
DoCmd.SetWarnings False
End Sub

If Me.dato > Date Then
MsgBox \" Date is Not Allowed\", vbCritical + vbOKOnly, \"Datevalue exceeds todays Date\"
DoCmd.CancelEvent
End If
end sub

Private Sub dato_AfterUpdate()
DoCmd.SetWarnings true
End Sub


hvad kan jeg gøre ???