Public Sub RunPackage() 
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 

'Create the step and task. Specify the package to be run, and link the step to the task. 
Set objStep = objPackage.Steps.New 
Set objTask = objPackage.Tasks.New("DTSExecutePackageTask") 
Set objExecPkg = objTask.CustomTask 
With objExecPkg 
.PackagePassword = "" 
.FileName = App.Path & "\dts\MGetShop.dts" 
.Name = "ExecPkgTask" 
End With 
With objStep 
.TaskName = objExecPkg.Name 
.Name = "ExecPkgStep" 
.ExecuteInMainThread = True 
.AddGlobalVariables = True 
End With 
objPackage.Steps.Add objStep 
objPackage.Tasks.Add objTask 

'Run the package and release references. 
objPackage.Execute 

Set objExecPkg = Nothing 
Set objTask = Nothing 
Set objStep = Nothing 
Set mobjPkgEvents = Nothing 

objPackage.UnInitialize 
End Sub