难题：SQLSERVER应用开发级高手请进来看看(vb+dts)

Question

1:执行包 
Dim objPackage      As DTS.Package2
    Dim objStep         As DTS.Step
    Dim objTask         As DTS.Task
    Dim objExecPkg      As DTS.ExecutePackageTask
    
    Set objPackage = New DTS.Package
    Set mobjPkgEvents = objPackage
    objPackage.FailOnError = True
    
    Set objStep = objPackage.Steps.New
    Set objTask = objPackage.Tasks.New("DTSExecutePackageTask")
    Set objExecPkg = objTask.CustomTask
    With objExecPkg
        .ServerName = "sql_DB"
        .ServerUserName = "sa"
        .ServerPassword = "1234"
        .Name = "test"
        .PackageName = "package1"
    End With
    With objStep
        .TaskName = objExecPkg.Name
        .Name = "ExecPkgStep"
        .ExecuteInMainThread = True
    End With
    objPackage.Steps.Add objStep
    objPackage.Tasks.Add objTask
    
    objPackage.Execute
    
    Set objExecPkg = Nothing
    Set objTask = Nothing
    Set objStep = Nothing
    Set mobjPkgEvents = Nothing
    
    objPackage.UnInitialize