Dim myQuery As QueryDef, strSQL, p1, p2
Set myQuery = CurrentDb.QueryDefs("ВашЗапрос")
strSQL="SELECT * FROM tbl WHERE"
IF IsNull(me.полеВвода1параметра) then 
		p1=null 
	Else 
		p1=" полеЗапросаПоКоторомуПроводитсяОтбор(=,>,<,<>,like)полеВвода1параметра" 
End if
IF IsNull(me.полеВвода2параметра) then 
		p2=null 
	Else 
		p2=" полеЗапросаПоКоторомуПроводитсяОтбор(=,>,<,<>,like)полеВвода2параметра" 
End if
myQueru.SQL=strSQL & p1 & p2
DoCmd.OpenQuery "ВашЗапрос"

Dim myQuery As QueryDef, strSQL, p1, p2 'сколько хотите параметров pN
Set myQuery = CurrentDb.QueryDefs("ВашЗапрос")
IF IsNull(me.полеВвода1параметра) and IsNull(me.полеВвода2параметра) and... IsNull(me.полеВводаNпараметра) then
                     myQuery.SQL="SELECT * FROM tbl"
                      DoCmd.OpenQuery "ВашЗапрос"
                    exit sub
End if
strSQL="SELECT * FROM tbl WHERE"
IF IsNull(me.полеВвода1параметра) then  'или один блок IF c операторами ElseIF
		p1=null 
	Else 
		p1=" and полеЗапросаПоКоторомуПроводитсяОтбор(=,>,<,<>,like)полеВвода1параметра" 'аналогично для всех параметров
End if
IF IsNull(me.полеВвода2параметра) then 
		p2=null 
	Else 
		p2=" and полеЗапросаПоКоторомуПроводитсяОтбор(=,>,<,<>,like)полеВвода2параметра" 
End if
...................
myQueru.SQL=strSQL & Mid(p1 & p2 ....& pN,6)
DoCmd.OpenQuery "ВашЗапрос"