DTS Schedule Problems

I have severe problems with the DTS.
I am trying to import data from a dbf file to a table in SQL sErver 2000. I have built a DTS package. When i run it in the
Data Transformation Service i works fine. If i try to schedule it
in the DT Service it fails, if i try to schedule it
by manually make a schedule it fails

This is the step code in the Job Schedule

Please help

Tom
-------------------------------------------

Dim oPackage, strResult
Set oPackage = CreateObject("DTS.Package2")
oPackage.LoadFromSQLServer "srap01", "sa", "7eAsy9", DTSSQLStgFlag_UseTrustedConnection, "", "", "","DTSrn"
oPackage.Execute
Set oPackage = Nothing