For dentro de Function

Tenho uma base em access com várias empresas.....preciso criar uma página q lista em formato de etiquetas as empresas selecionadasSerão listados para etiquetas apenas as empresas selecionadas em uma página..abaixolista_empresas.aspform action=gera_maladireta.aspenquanto nao acabar blabla[ ] empresa 1[ ] empresa 2[ ] empresa 3[ ] empresa 4...[ ] significa <input type=checkbox name=Check value=<%=db("codigo")%>>fim da páginamanda os campos via post para a pagina abaixogera_maladireta.aspfunction lista()For x = 1 To Request("Check").Countlista = Request("Check")(x) & ","Nextend functionstrSQL = "SELECT razao,ativo,codigo FROM clientes where codigo in" & "(" & lista & ")" & " ORDER BY razao"set db = Server.CreateObject("ADODB.Recordset")db.Open strSQL,"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\blablabla",3,3preciso q o select selecione o retorno da function...algo assim strSQL = "SELECT razao,ativo,codigo FROM clientes where codigo in" & "(" & "8,9,10,13" & ")" & " ORDER BY razao"não sei se deu pra entender mais é isso...Quem saber por favor poste ai...