• Catch ex As Exception

    Dts.Events.FireError(1, ex.TargetSite.ToString(), ex.Message.ToString(), String.Empty, 0)

    Dts.TaskResult = Dts.Results.Failure

    means, move failure line to end of statement i.e before end catch...