删除记录成功时给出提示信息，没有找到要删除的记录的时候也给出提示信息，，怎么实现？

Question

dim cn as new adodb.connection
dim fs as new adodb.recordset
dim sql as string
cn.open "huang"
sql="delete * from ...."
if cn.execute sql then
msgbox "已经成功删除了记录"
else
msgobx "删除数据有误"
end if
fs.close
cn.close
  \\\\\\\\\\\\\\\\
if cn.execute sql then提示此句语法错误，怎样来解决？？谢谢

Answer 1

cn.execute sql,lngTempif lngTemp=0 then
   msgbox "没有删除"
else
   msgbox "删除了" & lngTemp & "条记录"
end if