Вы могли использовать WMI. Найденный отрывком.
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" _
& strComputer & "\root\cimv2")
Set colComputer = objWMIService.ExecQuery _
("Select * from Win32_ComputerSystem")
For Each objComputer in colComputer
strMemory = objComputer.TotalPhysicalMemory
Next
select sum(individual_counts) from
(
select count(*) as individual_counts from TableA where x = 1
union all
select count(*) from TableB where x = 2
....
) as temp_table_name
обычно вам нужен псевдоним только при первом выборе при использовании объединения.
Не уверен на 100%, что вы имеете в виду, но возможно:
SELECT (SELECT COUNT(*) FROM tableA)+(SELECT COUNT(*) FROM tableB)