HOLA AMIGOS POR FAVOR NECESITO SU AYUDA
LA PAGINA ME TIRA EL SIGUIENTE ERROR
ADODB.Recordset error '800a0e78'
La operación no está permitida si el objeto está cerrado.
/INVENTARIO/guardarentradas.asp, line 48
Y EL CODIGO ES ESTE
<%
dim cnn,rst
' Creamos la conexión a la base de datos sin DSN
set cnn = Server.CreateObject("ADODB.Connection")
set rst = Server.CreateObject("ADODB.RecordSet")
cnn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("inventario.mdb")
sSQL="Update PRODUCTOS Set STOCK='" & STOCK & "' Where NOMBRE='" & NOMBRE & "'"
set rst = cnn.Execute(sSQL)
NOMBRE = Request.Form("fld201NOMBRE1")
UNIDAD_MEDIDA = Request.Form("fld201UNIDAD_MEDIDA1")
PROVEEDOR = Request.Form("fld201PROVEEDOR1")
PRECIO_COMPRA = Request.Form("fld201PRECIO_COMPRA0")
IVA = Request.Form("fld201IVA0")
ILA = Request.Form("fld201IVAchr3220")
PORCENTAJE = Request.Form("fld201PORCENTAJE0")
STOCK = Request.Form("fld201STOCK0")
NUEVAS = Request.Form("fld201PRECIO_VENTA0")
IVA5 = IVA / 100
IVA6 = ILA / 100
PORCENTAJE = PORCENTAJE / 100
IVA3 = IVA5 + IVA6
PRECIO1 = PRECIO_COMPRA * PORCENTAJE
PRECIO2 = PRECIO_COMPRA * IVA3
PRECIO_VENTA = PRECIO_COMPRA + PRECIO1 + PRECIO2
STOCK = STOCK + NUEVAS
TOTAL = PRECIO_VENTA * STOCK
IVA5 = IVA5 * 100
IVA6 = IVA6 * 100
PORCENTAJE = PORCENTAJE * 100
'Si está todo correcto, procedemos a ingresar los datos a la base de datos
rst.AddNew // AQUI ME DICE QUE ESTA EL ERROR
rst("NOMBRE") = NOMBRE
rst("UNIDAD_MEDIDA") = UNIDAD_MEDIDA
rst("PROVEEDOR") = PROVEEDOR
rst("PRECIO_COMPRA") = PRECIO_COMPRA
rst("IVA") = IVA
rst("IVA 2") = ILA
rst("PORCENTAJE") = PORCENTAJE
rst("FECHA") = FECHA
rst("STOCK") = STOCK
rst("TOTAL") = TOTAL
rst.update
'Terminamos e imprimimos un mensaje
Response.Write "El stock se actualizo con exito "
%>
<html>
<head>
</head>
<body bgColor="#9596AC">
</body>
</html>