Comprobar en BD

[Avellaneda]

Hola,

manda el error a una etiqueta.

On Error Goto Etiqueta
... código
... mas código
Exit sub
Etiqueta:
If Err.Number = (aquí el número de error que te sale en el mensaje antes de cascar) Then
MsgBox "La clave ya existe"
End Sub