Dim mesaj
    mesaj = MsgBox("Kayıtlar İmha Ediecek... Emin misiniz?", vbYesNo)
 
    If mesaj = vbYes And Tliste.not = "İmha Edilecek" And Tliste.imhaedildimi = False Then
    CurrentDb.Execute "UPDATE Tliste SET tliste.imhaedildimi=TRUE"
 
    Tliste.aciklama = Date + "" + "İmha Edildi. "
    MsgBox ("Kayıtlar İmha Edildi.İyi Çalışmalar...")         
            
    ElseIf mesaj = vbNo Then
       MsgBox ("Kayıtlar İmhasından Vazgeçildi...")
    End If


şeklinde bir kod yazdım burada yazım hatam nedir. sürekli run time error 424 hatası alıorum