Executing DTS Package From TSQL

When run in query analyzer, the procedure below returns no errors however it doesn't execute the dts package I am passing to it.

The package works beautifully if you run it directly in Enterprise Manager.

Can anyone help me with a possible causes or perhaps help me improve my error trapping to help me resolve this?


create procedure sp_ExecuteDTSPackage
@login varchar(15),
@userpwd varchar(15),
@svr varchar(15),
@packagename varchar(255),
@pkgPwd varchar(15)

as

declare @hr int
declare @object int

--create a package object
EXEC @hr = sp_OACreate 'DTS.Package', @object OUTPUT
if @hr <> 0
Begin
Print 'Package Creation Failed'
RETURN
end


declare @flag int
select @flag = 0 -- 0 = sql svr authentication, 256 = windows authentication

EXEC @hr = sp_OAMethod @object, 'LoadFromSqlServer',NULL, @ServerName=@svr, @ServerUserName=@login,
@PackageName=@packagename, @Flags=@flag, @ServerPassword = @userpwd, @PackagePassword = @pkgPwd

if @hr <>0
begin
Print 'Package load failed'
RETURN
end

-- execute the package

EXEC @hr = sp_OAMethod @object, 'Execute'
IF @hr <> 0
BEGIN
print 'Package execution failed'
RETURN
END

--return the step errors as a recordset
--

EXEC @hr = sp_OAMethod @object, 'UnInitialize'
IF @hr <> 0
BEGIN
print 'UnInitialize failed'
RETURN
END

-- release the package object
EXEC @hr = sp_OADestroy @object
if @hr <> 0
Begin
RETURN
end