No se si es exactamente lo que pides pero bueno (si te explicas un poquito mas no pasa nada :P).
Código:
Rst.Open "SELECT campo1, campo2, campo3... "_
& "FROM tabla", Conexion
Select Case (request("variable"))
case Rst("campo1"):
instrucciones
case Rst("campo2"):
instrucciones
case Rst("campo3"):
instrucciones
End select
Rst.Close