Problema con con on error goto - vb6

Tengo 2 tablas empleado y cargo relacionadas por medio del CodCargo
ahora cuando intento eliminar un registro de la tabla cargo y este esta siendo utilizado en la tabla empleado me aparece un error en tiempo de ejecución lo solucione de esta manera
El datagrid lo cargo en el evento form_load de esta manera
Set DataGrid1.DataSource = rsCargo
y tengo un boton que hace
'Eliminar registro
On Error GoTo VerError
Dim mensaje
mensaje = MsgBox("Esta seguro de eliminar el registro", vbYesNo)
If mensaje = 6 Then rsCargo.Delete
Exit Sub
VerError:
If Err.Number = -2147467259 Then
MsgBox "Se ha producido un error"
End If
Cuando no hay ningún registro relacionado a la tabla empleado el cargo se elimina correctamente y se desaparece del datagrid y en el caso contrario obviamente aparece el mensaje hecho con el on error goto por decirlo así, pero igual se desaparece el registro del datagrid como hago para evitar eso he intentado colocando rscargo. Cancelupdate después del mensaje y nada la única forma es volviendo a cargar el formulario espero me puedas ayudar