Visual Basic - Error en borrado con registros relacionados

Hola a todos.
Tengo una rutina (Al final listada) para borrar articulos y los borra bien, pero cuando un articulo tiene registros relacionados en otra tabla me da un error diciendo que tiene registros relacionados, entonces yo capturo el error con ON ERROR , incluso borro el error err.clear pero al intentar pasar el registro siguiente con MOVENEXT me vuelve a dar el error y no sigue al siguiente registro. ¿Como hago para que continue en el siguiente registro ?
Os adjunto la rutina para que le echeis un vistazo. Muchas gracias a todos.

recartic.Open sele, cnn, adOpenStatic, adLockOptimistic
On Error GoTo error
If (txtdesde <> "") And (txthasta <> "") Then
recartic.MoveFirst
While recartic.EOF = False
nRegistro = recartic.AbsolutePosition
recartic.Delete
recartic.MoveNext
Wend
MsgBox "Registro Borrados", vbYes, "Borrar"
Unload Me
Else
MsgBox "Debe Introducir el intervalo de artículos", vbYes, "error"
End If
Exit Sub

error:
MsgBox (recartic.Fields(0) & " " & Err.Description)
recartic.MoveNext ' (Aqui me vuelve a dar el error)
Resume Next