从VBA运行DTS包

我试图从vba运行一个dts包，我现在的代码如下，我已经删除了服务器和密码，但我知道密码是正确的。

我试图把“//”放在服务器的前面，看它是否工作，但没有（SQL数据库是在一个单独的服务器上，我试图运行VBA代码，如果这件事）

Sub ExecutePackage() Dim oPKG As DTS.Package, oStep As DTS.Step Set oPKG = New DTS.Package Dim sServer As String, sUsername As String, sPassword As String Dim sPackageName As String, sMessage As String Dim lErr As Long, sSource As String, sDesc As String ' Set Parameter Values sServer = "xxxxxxx" sUsername = "xx" sPassword = "xxxxxxxxxxxxx" sPackageName = "PODs Import" ' Load Package oPKG.LoadFromSQLServer sServer, sUsername, sPassword, _ DTSSQLStgFlag_Default, , , , sPackageName ' Set Exec on Main Thread For Each oStep In oPKG.Steps oStep.ExecuteInMainThread = True Next ' Execute oPKG.Execute ' Get Status and Error Message For Each oStep In oPKG.Steps If oStep.ExecutionResult = DTSStepExecResult_Failure Then oStep.GetExecutionErrorInfo lErr, sSource, sDesc sMessage = sMessage & "Step """ & oStep.Name & _ """ Failed" & vbCrLf & _ vbTab & "Error: " & lErr & vbCrLf & _ vbTab & "Source: " & sSource & vbCrLf & _ vbTab & "Description: " & sDesc & vbCrLf & vbCrLf Else sMessage = sMessage & "Step """ & oStep.Name & _ """ Succeeded" & vbCrLf & vbCrLf End If Next oPKG.UnInitialize Set oStep = Nothing Set oPKG = Nothing ' Display Results MsgBox sMessage End Sub 

我得到的错误

编辑：发现这不是与VBA代码，但与它不是本地的，因为运行它通过cmd上的DTSrun不起作用。