为了打开参数查询, 你须要明确指出基于参数查询打开记录集的每一个参数.

　　例如, 在下面的代码中, 查询 "Qry1" 拥有两个参数: [Please enter Code:] 和 [Please enter city:].

　　Dim db As Database         ' 当前数据库
　　Dim rs As Recordset        ' 保存查询结果的记录集
　　Dim qdfParmQry As QueryDef ' 实际的查询对象

　　Set db = CurrentDb()
　　Set qdfParmQry = db.QueryDefs("Qry1")
　　qdfParmQry("Please Enter Code:") = 3

　　' or try this alternate method
　　' to pass the parameter
  
　　qdfParmQry![Please Enter City:] = "New York"
　　Set rs = qdfParmQry.OpenRecordset()