Eğer yanlış anlamadıysam aşağıdaki kod işini görecektir. Sadece SQL sorgunu düzenlemek yeterli.

.....
if tur = "hepsi" Then
SQL = "SELECT * FROM ilanlar"
else
SQL = "SELECT * FROM ilanlar WHERE (ilanlar.tur = '" & tur & "') and (ilanlar.yer like '" & yer & "')"
end if
....