为什么以下代码不行

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
但是无法删除当前纪录，为什么呢

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