I got the following:
Dim db As DAO.Database
Dim qry As DAO.QueryDef
Set db = CurrentDb
Set qry= db.QueryDefs("NameOfMyStoredQuery")
qry.Parameters(0) = FirstParamValue
qry.Parameters(1) = SecondParamValue
qry.Parameters(2) = ThirdParamValue
qry.Execute
source
share