Tenés que hacer algo así:
SQL = "RES_DADESTOTAL.Source = "SELECT * FROM CURRICULUMS WHERE"
Código:
if cat1 <> "*" then SQL = SQL & " [CATEGORIA PROF1]='"&cat1&"'"
if cat2 <> "*" then SQL = SQL & " AND [CATEGORIA PROF2]='"&cat2&"'"
...
SQL = SQL & " ORDER BY ["&ordre&"] ASC"