Tablo bilgilerini Silmede Hata Kodu Çözümü?

Merhabalar.

Ekli dosyada "YonetimGelirleri" tablosundaki kayıtları silmek için Form1'e eklediğim "SİL" komut düğmesine tıkladığımda, aşağıdaki hatayı alıyorum.

Çözümü konusunda değerli katkınızı bekliyorum.

Teşekkürler.

Private Sub Komut24_Click()
On Error GoTo Err_Komut24_Click
Dim cevap As Long

cevap = MsgBox("TÜMVERİLER SİLİNİYOR!!", vbYesNo + vbQuestion, "DİKKAT")
If cevap = vbYes Then
CurrentDb.Execute ("DELETE * FROM [YonetimGelirleri] ")
DoCmd.ShowToolbar ("Menü Çubuğu"), acToolbarYes
Application.CommandBars.FindControl(ID:=2071).accDoDefaultAction
Else
Cancel = True
End If
Exit_Komut24_Click:
Exit Sub

Err_Komut24_Click:
MsgBox Err.Description
Resume Exit_Komut24_Click

End Sub

Sayın PuLeTiN;

İlginiz ve kısa süredeki yanıtınız için teşekkürler.

Yeni yılınızı kutlar; 2009 yılını sevdiklerinizle beraber sağlıklı, mutlu, başarılı ve bol kazançlı geçirmenizi dilerim.