объект ADODB.Connection пригодился.

следующий код работает с расширением .accdb :

Sub pereschet_vseh_dolei()

Dim cnn As ADODB.Connection, sql_qry As String, filetoopen As String

sql_qry = "текст запроса"

filetoopen = "путь к директории файла\Planning_sku.accdb"

Set cnn = New ADODB.Connection

cnn.Open ConnectionString:="Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + filetoopen + ";"

cnn.Execute sql_qry

cnn.Close

Call podgotovka_tablicy

End Sub