SELECT

SQL

Dim レコードセット As DAO.Recordset

Set レコードセット = データベース.OpenRecordset("SELECT文")
...

レコードセット.Close
データベース.Close

クエリ

Dim クエリ As DAO.QueryDef

Set クエリ = データベース.QueryDefs("クエリ名")
Set レコードセット = クエリ.OpenRecordset
...

レコードセット.Close
クエリ.Close
データベース.Close

　パラメータあり

クエリ.Parameters("パラメータ名") = 値