Tanto per cominciare le istruzioni di pulizia dei campi mettile in una SubRoutine apposita così scrivi 1/4 di codice.

poi mi sa che subito dopo il metodo "Delete" ci voglia un metodo "Update" o "Refresh" o "Requery" ma non ne sono sicuro....

Per il resto non credo ci siano errori...

ma il messaggio te lo da anche se parti da 0 record senza averne eliminato alcuno?