По совету на этом форуме объеденил запросом две таблицы Товар-Услуга и вижу что эта конструкция работает в 3 раза медленне чем если искать раздельно в обоих таблицах.
Код объеденяющего запроса:
SELECT КодФирмы, КодТовара, 0 as КодУслуги, 'Товар' as Вид, ТипТовара as Тип, ПодтипТовара as Подтип, ИмяТовара as Наименование, ФирмаПроизв, МаркаТовара as Марка, ЦенаОпт, ЦенаРозн, Валюта, ЕдИзмерения
FROM Запр_Товар
UNION
SELECT КодФирмы, 0 as КодТовара, КодУслуги as Код, 'Услуга' as Вид, ТипУслуги as Тип, ПодтипУслуги as Подтип, ИмяУслуги as Наименование, "" as ФирмаПроизв, МаркаУслуги as Марка, "" as ЦенаОпт, Цена as ЦенаРозн, Валюта, ЕдИзмерения
FROM Запр_Услуга
ORDER BY Вид, Наименование;
далее
set rs = db.OpenRecordset("select * from Запр_ТоварУслуга where КодФирмы=5")
это работает примерно в 3 раза медленее чем код:
set rs = db.OpenRecordset("select * from ЗапрТовар where КодФирмы=5")
set rs = db.OpenRecordset("select * from ЗапрУслуга where КодФирмы=5")
Что можно сделать для оптимизации? Чем больше записей тем больше тормозит. Может я что не так делаю?

КодУслуги as Код слючайно забралось, ничего не изменилось

Принцип понятен, но что делать, к запросу ведь индекс не подключишь. Я попробовал без where но эффект примерно тотже (примерно в 2 раза) может есть более элегантный способ?

Если я пишу:
SELECT * FROM Запр_Товар union select * from Запр_Услуга
то получаю
"В таблицах или запросах, выбранных в запросе на объединение, не совпадает число столбцов. (Ошибка 3307)"
Про указание WHERE в условиях UNION спасибо я так и сделаю но тогда использовать уже созданный запрос не получиться.
Я уже писал что без WHERE эффект примерно тотже как это ускорить?
set rs = db.OpenRecordset("select * from Запр_ТоварУслуга")

> Кроме того, в твоем запрос используется сортировка по наименованию, непонятно зачем нужная, если тебе хочется выбирать записи по другому полю.

Дык я выбираю товары по фирме, а на экран эти товары надо по именам и в начале товары а затем услуги вот и получается
ORDER BY Вид, Наименование;

Я новичёк и такого не знаю, если не сложно напиши примерчик

Спасибо огромное UNION ALL действительно немного ускорило, а поиск в UNION WHERE так-же помог скорость стала сравнима с выбором по отднльности (на глаз немного медленее но горрраздо быстрее чем была в начале). Но я всё-же остался на простом варианте - скопировав во временную таблицу:
DELETE * FROM Табл_ВрТоварУслуга_
INSERT INTO Табл_ВрТоварУслуга_ (...) SELECT ... FROM Запр_Товар WHERE ...
а затем туда-же добавляю
INSERT INTO Табл_ВрТоварУслуга_ (...) SELECT ...FROM Запр_Услуга WHERE ...
эта конструкция работает всё-же быстрее чем такая-же но с
UNION ALL ... WHERE КодФирмы=GlobalFuncCodeFirm()
Но ещё раз спасибо за содействие, применив все советы я нашёл самое быстрое действие, что было-бы невозможно без внешней помощи.