AccessAbfragenParameter.vba

Dim db As DAO.Database 
Dim qdfTmp As DAO.QueryDef 

Set db = CurrentDb 
Set qdfTmp = db.QueryDefs("Name der Query") 
qdfTmp.Parameters("NameParameter1") = "Parameterwert1" 
qdfTmp.Parameters("NameParameter2") = "Parameterwert2" 

DoCmd.SetWarnings False 
DoCmd.OpenQuery "Name der Query"
DoCmd.SetWarnings True