Error de eliminación

[size= small; font-family: Times New Roman]Hola experto, tal vez parezca simple lo que quiero consultar pero sucede que estoy haciendo un mantenimiento y tengo un botón eliminar que tiene el siguiente código:
IF BOF() OR EOF()
messagebox("No hay registros para eliminar ...",0,"Advertencia")
ELSE
if messagebox("¿Esta seguro de eliminar el registro?",36,"Confirmación")=6
reg=recno()
use d:\libros\datos\denom_ingresos EXCLUSIVE
GO reg
DELETE
PACK
messagebox("El registro fue eliminado ...",62,"Aviso")
thisform.cmdUltimo.Click
ELSE
thisform.cmdUltimo.Click
ENDIF
endif
thisform.refresh
En el load del formulario tengo este codigo:
USE d:\libros\datos\denom_ingresos SHARED AGAIN IN 0 ORDER id_den
Y en el init del form tengo este codigo
Set exclusive off
set dele on
thisform.mostrardatos
Cada vez que cargo el form y elimino un registro me aelimina normal pero cuando vuelvo a cargar el formulario ya a intentar borrar otro registro me dice que el archivo esta en uso.