Вопрос а сколько всего вариантов придется описать?
Спрашиваю, потому что решаю такую задачу!

вариантов selecta....

Вообще то я реализовал такой поисковик несколько по другому
Если поиск осуществляенся в одной таблице то миожно сделать так
(чекбоксы здесь не нужны)
1. определяем какие поля заполнены
private sub kkkkk()
if Nz(field1)="" then
A=0
else A=1
end if
.......
if Nz(field4)="" then
d=0
else A=1
end if
2.Составление SQL
sqltxt="select ..... from tableName where" -первая часть
sqltxt=sqltext+sqlwhere(a,....d)
end sub
func sqlwhere(a,...d as integer) as string
Начинаем по очереди просматривать
if a=1 then
sqla="параметр1 = '" & TEXT1 & "'
ELSE
SQLA=""
END IF

IF B=1 THEN
IF A=1 THEN
SQBB= "AND параметр2 = '" & TEXT2 & "'
ELSEIF A=0 THEN
SQBB="параметр2 = '" & TEXT2 & "' "
END IF
ELSE
SQLB=""
END IF


IF C=1 THEN
IF A=1 OR B=1 THEN
SQBC= "AND параметр3 = '" & TEXT3 & "'
ELSEIF A=0 AND B=0 THEN
SQBC="параметр3 = '" & TEXT3 & "' "
END IF
ELSE
SQLC=""
END IF

И Т.Д
sqlwhere=SQLA+SQLB+....SQLN
END FUNC

иДЕЯ -ПРОСТО ВЫЯСНЯЕМ ЕСТЬ ЛИ ЗНАЧЕНИЕ ВПЕРЕДИИДУЩЕГО ПАРАМЕТРА
да ЗНАЧИТ ПОДСТ AND
НЕТ-БЕЗ НЕГО
НЕТ НЕОБХОДИМОСТИ СЧИТАТЬ ВАНИАНТЫ И ПИСАТЬ ГРОМДЬЕ sql