Вот, например, сделал макрорекордером:

With ActiveSheet.QueryTables.Add(Connection:=Array(Array( _
"ODBC;DBQ=D:\Мои документы\a1.mdb;DefaultDir=D:\Мои документы;Driver={Driver do Microsoft Access (*.mdb)};DriverId=25;FIL=MS Access;M" _
), Array( _
"axBufferSize=4096;MaxScanRows=8;PageTimeout=10;SafeTransactions=0;Threads=3;UID=admin;UserCommitSync=Yes;" _
)), Destination:=Range("A1"))
.CommandText = Array( _
"SELECT ad.inn, ad.ind_o_ad, ad.date, ad.year, ad.ind_ad_a" & Chr(13) & "" & Chr(10) & "FROM `D:\Мои документы\a1`.ad ad" _
)
.Name = "Запрос из Ac11"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.Refresh BackgroundQuery:=False
End With

Есть и размер буфера, и таймаут.
Хотя, не факт, что поможет.