Здравей , пробвах да реша проблема ти така:

пишеш си функция примерно

Function GetAsterisk () as string
If [Forms]![MainMenu]![Data Types]="ALL" Then
GetAsterisk = "*"
Else
GetAsterisk = ([Forms]![MainMenu]![Data Types]
end if
end Function

след това като критерий в query-то слагаш Like GetAsterisk(). Оказа се че работи перфектно. Опитай :)