Visual Basic - Control de error

Hola!

Tengo una base de datos relacional en Access, dos de las tablas que estan relacionadas son la tabla Empresas y la tabla Clientes.
Cuando quiero eliminar una empresa (un registro de la tabla Empresas) que esta relacionado con un registro de la tabla de Clientes me manda el siguiente error: Error '-2147467259 (80004005)' y dice: The record cannot be deleted because table 'Clientes' includes related records.
Como le puedo hacer para que cuando aparezca ese error yo pueda mostrar un msgbox que diga: "No puede eliminar tal empresa porque hay clientes asignados a ella", para que no me salga el mensaje de error.

Les agradeceria mucho una respuesta.

Utiliza la sentencia On Error Resume Next, verifica el numero de error y manda el mensaje que deseas.

On Error Resume Next
' Aqui la linea para borrar ' Si aparece el error aqui, continua sin mostrar nada

' revisas el error
if err.number=XXXXXXX then msgbox "No puede eliminar tal empresa porque hay clientes asignados a ella"

y listo