MS Access | DAO | Создать запрос

'создание запроса - DAO

Sub CreateQuery_DAO()

Dim db As Database, que As QueryDef

Set db = CurrentDb

Set que = db.CreateQueryDef("QueryName", "SELECT [Company Name], Phone from Clients where Country= 'Russia'")

End Sub

где:

"QueryName" – новое имя запроса

"SELECT ,,," – текст запроса на языке SQL. См. также как просто научиться писать запросы на SQL языке.