Consulta SQL

[victorlj92]

Me da este error:

Microsoft JET Database Engine error '80004005'

La operación debe usar una consulta actualizable.

/Temporalasp/Encuestas/respuesta.asp, line 38

La linea 38 está marcada en azul

¿Que he escrito mal?
La estructura de la tabla es:

A : Texto
B: Texto
C: Texto
D: Texto

Y está hecha en Access
<%
Dim conexion, consulta1, consulta2
Dim path, file
Dim respuesta
Dim mes
Dim ano
Dim datoanterior


path = Request.ServerVariables("PATH_TRANSLATED")
file= Left(path, instrRev(path, "\")) & "Encuesta.mdb"

Set conexion = Server.CreateObject("ADODB.Connection")
conexion.Open "provider=microsoft.jet.oleDB.4.0;data source=" & file

respuesta = request.Form("respuesta")
consulta1 = "SELECT " + respuesta + " FROM Tabla1"
Set resultado = Server.CreateObject("ADODB.RecordSet")
resultado.open consulta1, conexion, adOpenKeyset
datoanterior = resultado(respuesta)
datoanterior = Cint(datoanterior)+1
datoanterior = Cstr(datoanterior)

consulta2 = "UPDATE Tabla1 SET Tabla1." + respuesta + " = """ + datoanterior + """"
Response.Write consulta2
38: conexion.Execute consulta2, adCmdText
Response.Cookies("Votado") = "True"
mes = month(date)
ano = year(date)
Response.Cookies("Votado").Expires = mes+"/31/"+ano
'Response.redirect("resultados.asp")
resultado = nothing
conexion.close()

End If
%>