Insert usando "IN" - Ayuda

[Juansan]

perdon que me meta pero yo uso este codigo y funciona.
ok=split(request("modi"),"," )' la matriz
for each modi in ok

Sql = " Insert into modiparada "
Sql = Sql & "IN '"&Server.MapPath("\gservicios\hruta \hruta.mdb")&"'"
sql = sql & " SELECT PARADA.ID, PARADA.PARADA, PARADA.FRECUENCIA, PARADA.DETENCION, PARADA.RE, PARADA.HORA, PARADA.OBS, PARADA.RECORRIDO, PARADA.TURNO,RECO.SUC"
SQL = SQL & " FROM RECO INNER JOIN PARADA ON (RECO.TURNO = PARADA.TURNO) AND (RECO.RECORRIDO = PARADA.RECORRIDO)"
sql = sql & " WHERE parada.id = " & modi & ""
Conn.Execute Sql , registros

Se daran cuenta que vengo de una pagian anterior donde estan los checkboxes.

Ahora bien, estoy migrando esto a sql pero...
NO FUNCIONA!!!!
El problema esta en el: Sql = Sql & "IN '"&Server.MapPath("\gservicios\hruta \hruta.mdb")&"'" dado que ahora mi conexion es
"Provider=SQLOLEDB.1;Persist Security Info=False;Password=XXXXXX;User ID=XXXXXX;Initial Catalog='labase';Data Source=ELSERVER" , como hago para reemplazr esto y con que??

Gracias a todos