Error, La operación debe usar una consulta actualizable.

[julruiz]

Necesito realizar una adición a una base de datos en access, pero en el momento de ejecutar la sentencia sql me sale el siguiente error,

Tipo de error:
Microsoft JET Database Engine (0x80004005)
La operación debe usar una consulta actualizable.

He aqui el codigo:

'Capturar las variables
origen=Server.HTMLEncode(Request.Form("origen"))
destino=Server.HTMLEncode(Request.Form("destino"))
campo1=Server.HTMLEncode(Request.Form("bases"))
campo2=Server.HTMLEncode(Request.Form("tapas"))
campo3=Server.HTMLEncode(Request.Form("zunchos"))
campo4=Server.HTMLEncode(Request.Form("jx50"))
campo5=Server.HTMLEncode(Request.Form("jx33"))
campo6=Server.HTMLEncode(Request.Form("tapaunmedio "))
campo7=Server.HTMLEncode(Request.Form("rostrata"))
campo8=Server.HTMLEncode(Request.Form("sabanas"))
campo9=Server.HTMLEncode(Request.Form("basesbouq") )
campo10=Server.HTMLEncode(Request.Form("tapasbouq" ))
campo11=Server.HTMLEncode(Request.Form("sabanasbou q"))
campo12=Server.HTMLEncode(Request.Form("capuchones "))
campo13=Server.HTMLEncode(Request.Form("upc"))
campo14=Server.HTMLEncode(Request.Form("grapametal ica"))
campo15=Server.HTMLEncode(Request.Form("grapazunch o"))
campo16=Server.HTMLEncode(Request.Form("cinta"))
campo17=Server.HTMLEncode(Request.Form("papelpicad o"))
campo18=Server.HTMLEncode(Request.Form("balderojo" ))
campo19=Server.HTMLEncode(Request.Form("baldeverde "))

ruta=Server.MapPath("datos.mdb")

' Crear el objeto connection
Set conexion=Server.CreateObject("ADODB.Connection")
' Crea el objeto command
Set objcommand=Server.CreateObject("ADODB.Command")

' Abre la conexion
conexion.open="Provider=Microsoft.JET.OLEDB.4.0;Da ta Source="+ ruta +";"

' Especifica el objeto connection al que se refiere este objeto command
objcommand.activeconnection=conexion
' Cadena de texto con el comando a ejecutar
cadena="insert into Envio (CiudadDestino,CiudadOrigen,Bases,Tapas,Zunchos,Ju mbolonx50,Jumbolonx33,Tapaunmedio,CartonRostrata,"
cadena= cadena + "Sabanas,BasesBouq,TapasBouq,SabanasBouq,Capuchone s,Upc,GrapaMetalica,GrapaZuncho,Cinta,PapelPicado, BaldeRojo,BaldeVerde)"
cadena= cadena +" values ('"&destino&"','"&origen&"','"&campo1&"','"&campo2 &"','"&campo3&"','"&campo4&"','"&campo5&"','"&camp o6&"',"
cadena= cadena + "'"&campo7&"','"&campo8&"','"&campo9&"','"&campo10 &"','"&campo11&"','"&campo12&"','"&campo13&"','"&c ampo14&"','"&campo15&"',"
cadena= cadena + "'"&campo16&"','"&campo17&"','"&campo18&"','"&camp o19&"')"
Response.Write(cadena)
objcommand.commandtext=cadena
objcommand.execute