Ciao Ragazzi, è possibile realizzare una select case dinamica?

Ho provato così ma mi da errore ...
codice:
SELECT CASE Pippo

  WHILE NOT rs_categoria.EOF
    CASE rs_categoria("ID")
      codice(x) = rs_categoria("Codice")
  rs_categoria.MoveNext
  WEND

END SELECT
Posso realizzare ciò in altro modo o non è possibile?

Grazie,