Merhaba..

Bu türdeki silme işlemleri için execute kullanmanızı öneririm..:

Dim kriter
kriter = Odeme_ID
If MsgBox("Ilgili KAYIT silinecek..! Silemek Istediginizden Eminmisiniz?", vbYesNo, "Silme Onayı") = vbYes Then
CurrentDb.Execute "delete from Tbl_Odeme where Odeme_ID=" & kriter & ""
Forms!Frm_Odeme_Edit!CmbOTF.Requery
Requery
End If
End Sub