在Visio中，用户从Excel导入数据后，我想访问该Excel文件中的其他数据。因此，我检索了第一个数据源的ConnectionString并添加了一个具有相同ConnectionString但又带有另一个CommandString的DataRecordset。但是我收到了VBA错误：
运行时错误'-2032465067（86db0b55）'：无法连接到数据
在我的Office365环境中，这可以正常工作。但是在另一个环境Office2016上，出现上述错误。
即使我也使用了第一个导入数据的CommandString，我也会收到VBA错误。
这是ConnectionString：
Provider = Microsoft.ACE.OLEDB.12.0;用户ID = Admin;数据源= <...文件路径+文件名...>;模式=读取;扩展属性=“ HDR = YES; IMEX = 1 ; MaxScanRows = 0; Excel 12.0;“; Jet OLEDB：System database =”“; Jet OLEDB：Registry Path =”“; Jet OLEDB：Engine Type = 37; Jet OLEDB：Database Locking Mode = 0; Jet OLEDB：Global Partial Bulk Ops = 2; Jet OLEDB：Global Bulk Transactions = 1; Jet OLEDB：New Database Password =“”; Jet OLEDB：Create System Database = False; Jet OLEDB：Encrypt Database = False; Jet OLEDB：Do n't copy Locale紧凑= False; Jet OLEDB：紧凑而无需副本修复= False; Jet OLEDB：SFP = False; Jet OLEDB：支持复杂数据= False; Jet OLEDB：Bypass UserInfo Validation = False; Jet OLEDB：有限的DB缓存= False; Jet OLEDB ：绕过ChoiceField Validation = False
strConnection = ActiveDocument.DataRecordsets.ItemFromID(lngLinkedDataRecordsetID).DataConnection.ConnectionString
strCommand = "select * from `" & strTableSupplyChainPhases & "`"
Set drsSupplyChainPhases = ActiveDocument.DataRecordsets.Add(strConnection, strCommand, 0, "Supplychain fasen")