http://www.foxtable.com/help/topics/0632.htm
If e.DataRow("审核") = true AndAlso User.Name <> "开发者" AndAlso User.Name <> "管理员"
msgbox("不能删除")
e.Cancel = true
End If