Перехват ошибок VB

Question

Мой код как ниже

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

В случае ошибки печати я хочу напечатать описание ошибки. Я пытался

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

но это не работает. Есть идеи?

Answer 1

Объект 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