Access 2010 - 触发SSIS包 - 运行时错误

Question

我已陷入我称之为“奇怪”的境地。我有这段代码，用于触发存储在特定位置的SSIS包：

Dim sDTSfile As String
Dim dtexecStr As String
Dim sSourcePath As String

  sSourcePath = "source path location"
  sDTSfile = "dtsx package location"

  dtexecStr = "dtexec /f """ & sDTSfile & """ /set                
  ""\Package.Variables[User::Directory].Properties[Value];" & sSourcePath & """"

  Set WshShell = CreateObject("WScript.Shell")

此代码段在MS Access 2007中运行良好，但作为升级到MS Access 2010的一部分，我正在测试代码的功能，此时代码打嗝

 WshShell.Run dtexecStr, 1, True

在这种情况下是否存在我做错的事情，如果是，理想情况下，当代码在2007年运行时，它应该在升级后的2010中运行良好。

提前谢谢！

错误消息：

Method 'Run' of Oject 'IWshShell3' failed. Runtime error - 2147024894 (80070002)