У меня была такая же проблема.Я решаю это с помощью цикла for.
Пример:
Если я хочу записать в 2 идентичные таблицы, используя цикл
for x = 0 to 1
if x = 0 then TableToWrite = "Table1"
if x = 1 then TableToWrite = "Table2"
Sql = "INSERT INTO " & TableToWrite & " VALUES ('1','2','3')"
NEXT
либо
ArrTable = ("Table1", "Table2")
for xArrTable = 0 to Ubound(ArrTable)
Sql = "INSERT INTO " & ArrTable(xArrTable) & " VALUES ('1','2','3')"
NEXT
Если у вас небольшой запрос, я не знаю, является ли это лучшим решением, но если у вас очень большой запрос, и он находится внутри динамического сценария с условиями if / else / caseэто хорошее решение.