En el procedimiento que deseas controlar el error utiliza:
Private Sub Command1_Click()
On Error goto Ctrl_Errores '<- Indica control de errores
nError=0
'Aqui van tus sentencias
'y la sentencia que deseas controlar con un mensaje
if nError=0 then
'sigues con el programa con las sentencias que deberian ejecutarse si su sentencia problematica se ejecuto sin problemas
End If
Exit Sub '<- Sale del procedimiento
Control: '<- Se ejecuta estas sentencias si se produce un error.
msg=err.number & vblf & err.description
msgbox msg,vbInformation,"Advertencia"
nError=err.number
Resume Next '<- A pesar del error, fuerza que continue el procedimiento.
End Sub
