Очень частов базах данных используются запросы с параметрами. В этом примере дано 2 варианта их применения.
dim q as dao.querydef
dim txt as stringtxt="select ... where val='" Me.Val "'"
set q=currentdb.querydefs("MyQ")
q.sql=txt
set q=nothing
docmd.Openquery "MyQ"
/*
'Dim dbs As DAO.Database
'Dim qdf As DAO.QueryDef
'
'Set dbs = CurrentDb
'Set qdf = dbs.QueryDefs("МойЗапросСПараметром")
'qdf.Parameters("ПараметрВЗапросе") = 1
*/