关于ADO的错误处理问题？

Question

on error resume next
  cn.execute "update khxx set kh='" & txtkh.text _
  & "'" where id='" & txtId.text & "'"
if err.number <> 0 then
  txtip.text = inputbox("请重新输入IP"，"提示",txtip.text)
  if txtip.text = "" then exit sub
  resume
End if
on error goto 0

Answer 1

错了，没看清题目 :-），重来：on error resume next
  cn.execute "update khxx set kh='" & txtkh.text _
  & "'" where id='" & txtId.text & "'"
if err.number <> 0 then 
    msgbox "查询错误！"
    exit sub
end if
on error goto ErrCn

Answer 2

错了，没看清题目 :-），重来：on error resume next
  cn.execute "update khxx set kh='" & txtkh.text _
  & "'" where id='" & txtId.text & "'"
if err.number <> 0 then 
    msgbox "查询错误！"
    exit sub
end if
on error goto ErrCn