[Resolvido] Valores Check Box

Olá.

Gostaria de fazer um Request.Form de varios Check box e usar esses mesmos valores em um select

Pesquisei e vi que se usa o split, mas não consegui enteder.

Pagina de envio

<% Dim sql, rs

Call AbreConn ()

sql = "Select * From adicional order by nome"

Set rs = conn.Execute(sql)

do while not rs.eof
%>

 <input name="adicionais" type="checkbox" id="adicionais" value="<%=rs("id")%>">

 <%=rs("nome")%> - <%=formatcurrency(rsAtiva("valor"))%>

Página de recebimento:

<%
Dim adicional

Vid = Resquest.Form("adicionais")

Call AbreConn ()

sql = "Select * From adicional Where id= " & Vid

Set rs = conn.Execute(sql)

Sei que tenho que separa os valores com o split, mas ainda não consegui fazer

Alguém pode me ajudar

Obrigado