В данном примере создается новый запрос с параметрами и задаются значения параметров:

Sub NewParameterQuery()
	Dim dbs As Database, qdf As QueryDef, rst As Recordset
	Dim prm As Parameter, strSQL As String

	' Возвращает ссылку на текущую базу данных.
	Set dbs = CurrentDb
	' Создает строку SQL.
	strSQL = "PARAMETERS [Первая дата заказа] DateTime, " _
		& "[Последняя дата заказа] DateTime; SELECT * FROM Заказы " & _
		"WHERE (ДатаРазмещения Between[Первая дата заказа] " _
		& "And [Последняя дата заказа]);"
	' Создает новый объект QueryDef.

Set qdf = dbs.CreateQueryDef("ЗапросСПараметрами", strSQL)
	' Задает значения параметров.
	qdf.Parameters![Первая дата заказа] = # 4 - 1 - 95 #
	qdf.Parameters![Последняя дата заказа] = # 4 - 30 - 95 #
	' Открывает объект Recordset для объекта QueryDef.
	Set rst = qdf.OpenRecordset
	rst.MoveLast
	MsgBox "Получено " & rst.RecordCount & " записей."
	rst.Close
	Set dbs = Nothing
End Sub