I have a job in SQLAgent that calls a DTS Package using vb script and errors out. I have written a vb app. that does the same thing with pretty much the same code and it doesn't error. I get the following error:

ActiveScripting specific error 257 occurred. The step failed.

Here is the script:

Dim adoRs
Dim adoConn
Dim adoCmd
Dim strSQL
Dim objDTSPackage

Set adoRs = CreateObject("ADODB.Recordset")
Set adoConn = CreateObject("ADODB.Connection")
Set adoCmd = CreateObject("ADODB.Command")

Function Main()
    adoConn.Provider = "SQLOLEDB"
    adoConn.ConnectionString = "User ID=WPPI_HDWH;Password=xxxx;" & "Data Source=WPPIWEB;" & "Initial Catalog=WPPI_HDWH"
             adoConn.Open

    adoRs.ActiveConnection = adoConn
    adoRs.OPen "Select * from WPPI_Main_Load_Globals order by prefix"

             Do Until adoRs.EOF



          Set objDTSPackage = CreateObject("DTS.Package")
           objDTSPackage.LoadFromSQLServer "WPPIWEB", "WPPI_HDWH", "hdwh98", DTSSQLStgFlag_UseTrustedConnection, , , , "WPPI_MAIN_LOAD"
           objDTSPackage.GlobalVariables("ODBC").Value = adoRs.Fields("ODBC").value
           objDTSPackage.GlobalVariables("Load_Consmonth_SQL" ).Value = adoRs.Fields("Load_Consmonth_SQL").value
           objDTSPackage.GlobalVariables("Delete_Data").Value = adoRs.Fields("Delete_Data").value
           objDTSPackage.GlobalVariables("Update_Utility_Info ").Value = adoRs.Fields("Update_Utility_Info").value
           objDTSPackage.GlobalVariables("Pu_Account").Value = adoRs.Fields("Pu_Account").value
           objDTSPackage.GlobalVariables("Pu_Account_Pay").Va lue = adoRs.Fields("Pu_Account_Pay").value
           objDTSPackage.GlobalVariables("Pu_Elec_Hist").Valu e = adoRs.Fields("Pu_Elec_Hist").value
           objDTSPackage.GlobalVariables("Pu_Stats").Value = adoRs.Fields("Pu_Stats").value
           objDTSPackage.GlobalVariables("Pujhhdrh").Value = adoRs.Fields("Pujhhdrh").value
           objDTSPackage.GlobalVariables("Pujhstat").Value = adoRs.Fields("Pujhstat").value
           objDTSPackage.GlobalVariables("Pujhstat_Consmonth" ).Value = adoRs.Fields("Pujhstat_Consmonth").value
           objDTSPackage.GlobalVariables("Hr_Pu_Elec_Rates"). Value = adoRs.Fields("Hr_Pu_Elec_Rates").value
           objDTSPackage.GlobalVariables("Hr_Pu_Stat_Codes"). Value = adoRs.Fields("Hr_Pu_Stat_Codes").value
           objDTSPackage.GlobalVariables("Pu_Flat_Bill").Valu e = adoRs.Fields("Pu_Flat_Bill").value
           objDTSPackage.GlobalVariables("Pu_Cat_Code").Value = adoRs.Fields("Pu_Cat_Code").value
           objDTSPackage.Execute
                  adoRs.MoveNext
             Loop

    Set objDTSPackage = Nothing
    Set adoRs = nothing
    Set adoConn = nothing
    Set adoCmd = nothing

    Main = DTSTaskExecResult_Success
End Function

Any feedback is appreciated.

Ken

First of all, you should use the Uninitialize() method of the package object for every object you create, ie add the following line just before the "Loop" statement:

adoRs.MoveNext
objDTSPackage.Uninitialize() ' <---- Here
Loop

Except from that, you should use msgbox'es to debug your code, to see if there is a specific place that the error occurs.