Visual Basic - Para entendidos

Estoy desarrollando un base de datos en Sql y agregado algunas reglas para que el usuario no pueda ingresar en el campo precio un Valor Negativo, -
Luego desde visual he diseñado la interfaz , genere un modulo de clases para la conexion a la BD Sql, y hasta alli todo bien porque se enlaza de maravillas, el problema surge luego cuando ingreso un valor negativo Oledb muestra el mensaje de Error 2147217873(80004005) en tiempo de ejecución, lo que deseo hacer es poner un manejador de errores y interceptarlo desde visual y ponerle un Msg mas agradable,-
Me pudes ayudar ¿ como intercepto el error?

En tu procedimiento pones lo sig

Public sub Nombre ()
On error goto AtrapaErr
PONES TU CODIGO
exit sub
AtrapaErr:
Err.clear
Msgbox " MENSAJE "

Err.descrption ' encaso de que quieras ver cual es el error lo pones antes del Err.Clear