错误代码91 – 设置VBA上的对象或variables

我想执行以下代码在Excel中打开VBA，但它给我错误对象或块variables未设置。 我写了下面的函数来执行我的function。

Private Sub Workbook_Open() Dim FilePath As String Dim AccessPath As String FilePath = Application.ThisWorkbook.Path AccessPath = FilePath & "\ABC Data.accdb" With ActiveWorkbook.Connections("ABC DATA_V1").OLEDBConnection .BackgroundQuery = True .CommandText = Array("ABCDataTest") .CommandType = xlCmdTable .Connection = Array( _ "OLEDB;Provider=Microsoft.ACE.OLEDB.12.0;Password="""";User ID=Admin;Data Source=" & AccessPath & ";" _ , _ "Mode=Share Deny Write;Extended Properties="""";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";" _ , _ "Jet OLEDB:Database Password="""";Jet OLEDB:Engine Type=6;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 Da" _ , _ "tabase=False;Jet OLEDB:Don't Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False;Jet" _ , _ " OLEDB:Support Complex Data=False;Jet OLEDB:Bypass UserInfo Validation=False;Jet OLEDB:Limited DB Caching=False;Jet OLEDB:Bypass" _ , " ChoiceField Validation=False") .RefreshOnFileOpen = False .SavePassword = False .SourceConnectionFile = "" .ServerCredentialsMethod = xlCredentialsMethodIntegrated .AlwaysUseConnectionFile = False End With With ActiveWorkbook.Connections("ABC DATA_V1") .Name = "ABC DATA_V1" .Description = "" End With ActiveWorkbook.Connections("ABC DATA_V1").Refresh End Sub 

当我尝试debugging，它是工作正常，如果逐行执行，但在文件打开它给我错误的第一个块（与ActiveWorkbook.Connections …）。