Es que no debes de asumir que siempre tendras 4 parámetros. Debes formar el query en razón a los parámetros que recibas, algo como esto:
Código:
Query = "select * from anuncio WHERE "
If Not IsEmpty(Paili) Then
Query = Query + "Pais like '%" & Paili & "%' and "
End If
If Not IsEmpty(Pro) Then
Query = Query + "Provincia like '%" & Pro & "%' and "
End If
...
etc
...
Query = MID(Query, 1, LEN(Query)-4)
Bueno, la idea es que al final de las consultas solo tengas una instrucción WHERE con exactamente los campos sobre los que le interesa al usuario buscar.
Saludos!