++- Insert en Bucle ++++

Hola buen día a todos. Tengo un pequeño problema que aún no he podido
resolver... espero que me puedan ayudar


Tengo una página con un listado de productos cada uno con la opción de
marcarlos con un "CheckBox", esto para que en la siguiente página me de
como
resultado, agregar todos los productos marcados en una tabla de la base de
datos.
Pensé en hacerlo con un bucle pero he tenido algunos problemas con lo de
Cerrar y Abrir el "recordset" ¿Existirá otra manera mas sencilla o
efectiva?


Establezco la conexion:

<%
categoria=request.form("lista")
dim d,e,j
d = split( request.form("numprod") , "," )
'-- Declaración de Vairables
Dim Conexion, Tabla, Directorio
'Se crean los objetos de datos
Set Conexion = Server.CreateObject("ADODB.Connection")
Set Tabla = Server.CreateObject("ADODB.Recordset")
'Conectamos a la base de datos mediante OLE ODBC dando el Driver
Conexion.Provider = "Microsoft.Jet.OLEDB.4.0"
Directorio = "C:\Inetpub\gdl\datos\smtl.mdb"
Conexion.Open ("Data Source=" & directorio)
%>



Y utilizo la consulta:



<%response.write(categoria)%>
<form name="tablacat">
<table>
<tr>
<td>
<select name=lista type=multiple>
<%
if isarray(d) then
for i=0 to ubound(d)
response.write("<option value='*" & d(i) & "*'>"& d(i) )
response.write("</option>")
If Tabla.Open then
tabla.close
end If
sentencia = "insert into TB_PRODUCTO_CATEGORIA (KCategoria, KProducto)
values ('" & categoria & "', '" & d(i) & "')"
tabla.Open sentencia,Conexion,3,3,1
next
end if
%>
</td>
</tr>
<tr>
<td align="center">
<a href="nocatprod.asp"> Regresar </a>
</td>
</tr>
</table>
</form>




Espero que me puedan ayudar y que tengan un excelente día.