El error que marca lo dice todo.
el cambo id te esta mandando la cadena 1,2,3,4,5 .....
podrias recojerlo asi:
cadena=Split(id," ,")
For i =0 to Ubound(cadena)
set oConn=Server.CreateObject("ADODB.Connection")
oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../ruta/archivo.mdb") & "; Password=bonilla "
SQL="SELECT id FROM " & _
"ventas where [id] = " & Cadena(i)
set rs=oConn.Execute(SQL)
Next
