Ayuda con TrataError

[oblacionx]

Saben tengo un trata error:
TrataError:
MsgBox "Existe un error al guardar los datos en la Base de Datos:" & vbCrLf & vbCrLf & Err.Description, _
vbCritical + vbOKOnly, "Error Nro. " & Err.Number

Lo que ocurre es que el mensaje que a veces sale a mi parece podria traumar a cualquir usuario, necesito saber, como identificar los errores mas comunes como violacion de foreingkey o primary key o unique , para que cuando ocurra estos mostrar al usuario unos mensajes mas entendible. Segun escuche cada error tiene un numero, les agradecere su ayuda.