Lo que podes hacer es cambiar la sentencia SQL para cada caso; algo asi:
Código:
Adodc1.RecordSource = "SELECT campos FROM tabla WHERE " & List1.Text& "=" & valor
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
Esto es considerando que en el List1 estan los nombres de los campos bajo los cuales queres hacer el filtro.
Saludos