Sub tt()
bn_ = "База.accdb"
zn_ = "Test_zapr"
Set a_ = CreateObject("Access.Application")
On Error GoTo A
With a_
    .Visible = 0
    .opencurrentdatabase ThisWorkbook.Path & "\" & bn_
    .docmd.OpenQuery zn_
End With
Exit Sub
A:
On Error Resume Next
Set a_ = Nothing
On Error GoTo 0
End Sub

SELECT Customers.Country, Categories.CategoryName,
  Sum(CCur([Order Details].[UnitPrice]*
  [Quantity]*(1-[Discount]))) AS Amount
FROM (Categories
  INNER JOIN Products
    ON Categories.CategoryID = Products.CategoryID)
  INNER JOIN ((Customers INNER JOIN Orders
    ON Customers.CustomerID = Orders.CustomerID)
  INNER JOIN [Order Details]
    ON Orders.OrderID = [Order Details].OrderID)
    ON Products.ProductID = [Order Details].ProductID
GROUP BY Customers.Country, Categories.CategoryName
ORDER BY Categories.CategoryName;

SELECT Customers.Country, Categories.CategoryName,
  Sum(CCur([Order Details].UnitPrice*
  [Quantity]*(1-[Discount]))) AS Amount
FROM Customers, Orders, [Order Details], Products, Categories
WHERE Categories.CategoryID=Products.CategoryID
  AND Customers.CustomerID=Orders.CustomerID
  AND Orders.OrderID=[Order Details].OrderID
  AND Products.ProductID=[Order Details].ProductID
GROUP BY Customers.Country, Categories.CategoryName
ORDER BY Categories.CategoryName;

Select t1.id From t1 Inner Join t2 On (t1.id=t2.id)
Union
Select t1.id From t1 Left Join t2 On (t1.id=t2.id) Where t2.id Is Null
Union
Select t2.id From t2 Left Join t1 On (t1.id=t2.id) Where t1.id Is Null

'/* IS NOT NULL in the subquery */
SELECT C.color
 FROM Colors AS C
 WHERE C.color NOT IN (SELECT P.color 
                          FROM Products AS P 
                            WHERE P.color IS NOT NULL);

'/* LEFT OUTER JOIN */
SELECT C.color
 FROM Colors AS C
    LEFT OUTER JOIN Products AS P
     ON C.color = P.color
    WHERE
P.color IS NULL;

Choose(Month([t].[dating]);'JAN';'FEB';'MAR';'APR';'MAY';'JUN';'JUL';'AUG';'SEP';'OCT';'NOV';'DEC')