Me tiene Enfermo¡¡¡¡¡

[malex6]

hace dos dias estoy tratando con este codigo pero no se que le pasa... tengo varios similares pero con este me doy no se que le pasa...

el error:
ADODB.Recordset error '800a0cb3'

El Recordset actual no admite actualizaciones. Puede ser una limitación del proveedor o del tipo de bloqueo seleccionado.

/descargas2.asp, line 35


el Codigo:
<%option Explicit %>

<%
Response.Buffer = true
Dim Con,tabla,sql

Set Con = Server.CreateObject("ADODB.Connection")
set tabla = Server.CreateObject("ADODB.RecordSet")
Con.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("./dea.mdb")&";"

'con.open "profesores"

sql= "SELECT * FROM Tabla1"
tabla.Open sql,con
cok=request.cookies("usuario")


'Recogemos los datos y validamos que no haya ningun campo vacio
dim materia, archivo, titulo, Texto, Formato, fecha, cok,error
materia = Request.Form("materia")
archivo = Request.Form("archivo")
Titulo = Request.form ("titulo")
Texto = request.form("texto")
Formato =request.form("formato")
fecha = date()

'if Titulo ="" or archivo ="" or materia ="" or Texto="" or formato="" then
'error = "Debe completar todos los datos."
'Response.Write error
'Response.End
'end if

'Si está todo correcto, procedemos a ingresar los datos a la base de datos

tabla.AddNew esta es la linea 35
tabla("texto") = texto
tabla("materia") = materia
tabla("fecha") = fecha
tabla("formato") = formato
tabla("archivo") = archivo
tabla("usuario") = cok
tabla("titulo") = Titulo
tabla.update

'Terminamos e imprimimos un mensaje
Response.Write "Se ha ingresado con exito"
%>

Ayuda porfa