ADO ile Delete yerine geçecek işlem yapma çalışmasında sorun

[alicimri]

Aşağıdaki linkteki aa.xlsm dosyasındaki ADO kodlar Update ile ile bir nevi Delete işlemi yaptırıyorum. Ancak bu işlemi iki kere başarılı bir şekilde yaptıktan sonra üçüncü seferde kodlar çalışmıyor. Bunun bir çözümü olabilir mi?
https://s7.dosya.tc/server21/c2o0zc/Yeni_klasor.zip.html