[Resolvido] select case dinamico

Pessoal estou tentando montar um select dinamico onde a quantidade de case(s) vai depender da quantidade de registros no banco de dados.

 

sql="SELECT caminho FROM clientes WHERE tp = 1 ORDER BY descricao asc"

dados = Server.CreateObject("ADODB.Recordset") dados.Open sql, conn, 3, 3

Select Case parametro
 While not dados.eof

 case dados("caminho")
 Response.redirect dados("caminho") & "/" & index.asp

 dados.MoveNext
 Wend
 Case Else
 Response.redirect "padrao" & "/" & index.asp
End Select

Fazendo dessa forma da o seguinte erro:

Microsoft VBScript compilation error '800a0400'

Expected statement

/funcao.asp, line 31

case dados("caminho")

^

Como faço para informar no case o conteudo que esta no banco de dados?