为什么以下代码不行,该如何解决

为什么以下代码不行

Private   Sub   d_Click()
Dim   sel   As   String
sel   =   MsgBox( "确定要删除本项目吗？ ",   vbQuestion   +   vbOKCancel,   "确定删除 ")
MsgBox   sel
If   sel   =   1   Then
        detr.Delete
End   If

End   Sub

detr是我定义的ado数据集

运行时程序没有报错，且sel的值为1
但是无法删除当前纪录，为什么呢

[解决办法]
删除之后你忘了更新数据库