Excel VB错误捕获

我的代码如下

 conDB.Execute strSQL, recordsAffected
         Sheet1.Cells(intStart, 5) = IIf(recordsAffected > 0, "Success", "Failure")

打印失败提示我想打印错误说明。我试过了

Sheet1.Cells(intStart, 5) = IIf(recordsAffected > 0, "Success", Err.Des)

---

但它不起作用。有什么想法吗？

只有在发生错误后，Err对象才有值。所以试试这个

Sub MySub(strSQL as string)
   On error goto CATCH 
   conDB.Execute strSQL, recordsAffected
   Sheet1.Cells(intStart, 5) = IIf(recordsAffected > 0, "Success", "Hmm ?")
exit sub 
CATCH:
   Sheet1.Cells(intStart, 5) = Err.Description
   on error goto 0
end sub  

---

受影响的0行并不意味着发生了错误，是吗？