Como declarar la sentencia If en access 2003

Buen día.
El problema que tengo este que estoy mandando traer el valor de unos campos de una tabla a otra mediante un formulario, esto es así el formulario se llama cotización y su tabla igual y la segunda tabla se llama clientes, la cuestión es que a través de un campo de texto al escribir la clave manualmente en el formulario me manda traer los datos de la tabla clientes y los muestra pega en la tabla y formulario cotización. El problema que tengo es que no se como declarar la sentencia IF para que cuando le escriba una clave que no se encuentra en la tabla o la escriba incorrectamente me mande un mensaje de "CLAVE INCORRECTA" y no me deje pasar a la siguiente linea , o si no se puede que no memande mensaje pero que simplemente no me deje cambiar de campo. Describo las lienas que estoy utilizando.
Private Sub claveempresa_AfterUpdate()
If IsNull(Me.claveempresa) Or Me.claveempresa = "" Then Exit Sub
Me.nombreempresa = Nz(DLookup("nombreempresa", "[clientes]", "[claveempresa]='" & Me.claveempresa & "'"), "")
Me.teléfono = Nz(DLookup("teléfono", "[clientes]", "[claveempresa]='" & Me.claveempresa & "'"), "")
Me.telefonofax = Nz(DLookup("telefonofax", "[clientes]", "[claveempresa]='" & Me.claveempresa & "'"), "")
Me.Dirección = Nz(DLookup("dirección", "[clientes]", "[claveempresa]='" & Me.claveempresa & "'"), "")
Me.Colonia = Nz(DLookup("colonia", "[clientes]", "[claveempresa]='" & Me.claveempresa & "'"), "")
Me.Población = Nz(DLookup("población", "[clientes]", "[claveempresa]='" & Me.claveempresa & "'"), "")
Me.CP = Nz(DLookup("cp", "[clientes]", "[claveempresa]='" & Me.claveempresa & "'"), "")
Me.email = Nz(DLookup("email", "[clientes]", "[claveempresa]='" & Me.claveempresa & "'"), "")
End Sub
Espero me puedan ayudar muchas gracias por su atención.