Problemas de volcado en la BBDD

[regui]

Hola a todos, empiezo a trastear un poco con el ASP y me pasaron un código para volcar en una BBDD, pero me da problemas, yo envio los parámetros a la página para que luego los vuelque en la BBDD, pero me da un error y no se de que es, he probado ha hacer la consulta en la BBDD directamente desde el acces pero alli no me da problemas, les pongo el código para que vean si hay algo mal.

<%
strconn = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("mdb/datos.mdb")
set conexion = Server.Createobject("adodb.connection")
conexion.open strconn
set cmd=server.createobject("adodb.command")
cmd.activeConnection=conexion
set rs = conexion.execute("select max(cod_dato) + 1 as cd From datos")
if isNull(rs("cd")) then
cod_dato = 1
else
cod_dato = rs("cd")
end if
rs.close
set rs = nothing
sql = "insert into datos (cod_dato) values ("&cod_dato&")"
cmd.commandText=sql
response.write(sql)
cmd.execute
for each item in request.form
sql = "update set "&item&"='"&request.form(item)&"' where cod_dato = "&cod_dato&""
cmd.commandText=sql
response.write(sql)
cmd.execute
next
conexion.close
set conexion = nothing
%>

ese es el código, y el error me lo da en la linea 18, me dice que La operación debe usar una consulta actualizable.
y no se que le pasa.
Si alguien puede ayudarme, le estaría muy agradecido.
Gracias a todos