dimka@ultraВ чём проблема - не знаю как менять свойства запроса и отслеживать когда будет готов рефреш.
А это делается очень просто:
ActiveSheet.QueryTables(1).CommandText = "select * from aaa"
и там есть много разных полезных пропертей которые тоже можно менять :)

А отслеживать когда завершиться запрос еще проще:
ActiveSheet.QueryTables(1).BackgroundQuery = false
и после этого при
ActiveSheet.QueryTables(1).Refresh
Эксель замерзенет до тех пор пока БД не вернет результат запроса.
Либо повесить свой собственный обработчик на событие QueryTable_AfterRefresh