Запросы SQL в Excel

[clbman]

Здравствуйте. Можете пожалуйста проверить правильно ли написан запрос? Выдает ошибку "Невозможен запуск запроса на выборку". Суть запроса чтобы установить связь таблиц при помощи JOIN и вывести таблицу в Экселе.

Dim db As DAO.Database
Dim sSQL As String
Set db = DAO.OpenDatabase("C:\Editor\database.mdb")
Set RS = db.OpenRecordset("select * from Товары, Склады, Категории")
sSQL = "select Товары.ID, Товары.[Наименование продукта], Склады.Склад, Категории.Категория
from Товары, Склады, Категории,
Товары inner join Склады on Склады.ID=Товары.Склад,
Товары inner join Категории on Категории.ID=Товары.Категория"

db.Execute sSQL
RS.Close
Set RS = Nothing
db.Close
Set db = Nothing
End Sub

[doober]

Давайте файл базы с образцами таблиц.и все получится

[doober]

Фрагмент кода запроса

sSQL = "SELECT Товары.Ид, Товары.[Наименование продукта], Склады.Склад, Категории.Категория
FROM Склады INNER JOIN (Категории INNER JOIN Товары ON Категории.Ид_Кат = Товары.Категория) ON Склады.Товар = Товары.Ид;"