Prova così.
codice:
<% 
Set Conn=Server.CreateObject("ADODB.Connection") 
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("/mdb-database/db.mdb") 
Set Rs=Server.CreateObject("ADODB.RecordSet") 

if (Request("Nome") = "" AND Request("Genere") = "" AND Request("Componenti") = "" AND Request("Citta") = "" AND Request("Provincia") = "" AND Request("Regione")) = "" then 
Sql = "Select TOP 20 ID,Nome,Genere,Citta,Provincia From Gruppi Order by ID Desc" 
else 
Sql = "Select ID,Nome,Genere,Citta,Provincia From Gruppi Where "& Request("campo") & " = " & Request("ricerca") & " Order by Nome Asc"
end if 
Rs.Open Sql, Conn, 2,2 


While Not Rs.EOF 

... 
%>