DTS Object Model Problem

Hi All,

Does any body have experience in capturing DTS step error information through VB Script.

When I run following code , the code in the IF loop is executed but I get 0 as the error number. Please note that stp_sql points to an Execute SQL task and the execute SQL task is failing and this script is executed on completion ( not success) of the Execute SQL task.

If stp_sql.ExecutionStatus = DTSStepExecStat_Completed And _
stp_sql.ExecutionResult = DTSStepExecResult_Failure Then

stp_sql.GetExecutionErrorInfo CLng(error_code)

msgbox CLng(error_code)

end if

Any help is appreciated.

Rajesh