A que se refiere con este error

[wizito]

hola
este codigo funcionaba perfentamente pero un dia todos los codigos similares a este ya no funcionaban.Acontionuacion el error y uno de los codigos:

Microsoft OLE DB Provider for ODBC Drivers error '80004005'

[Microsoft][Controlador ODBC Microsoft Access] La operación debe usar una consulta actualizable.

/webpub/encuesta/Encuesta.asp, line 30

codigo:

Dim seleccion,sql
Seleccion=request.form("radiobutton")
Dim conn,rs,uno,dos,tres,total,porcentaje1,porcentaje2 ,porcentaje3

Set conn = Server.CreateObject("ADODB.Connection")
DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; "
DSNtemp=dsntemp & "DBQ=C:\Inetpub\webpub\correo.mdb"
conn.Open DSNtemp
'con.Open "correo"

If seleccion="1" then
sql="update encuesta_autos set gol=gol + 1 "
conn.execute(sql)
End if

If seleccion="2" then
sql="update encuesta_autos set clio=clio + 1 "
conn.execute(sql)
End if

If seleccion="3" then
sql="update encuesta_autos set peugeote=peugeote + 1 "
conn.execute(sql)
End if

set rs = Server.CreateObject("ADODB.RecordSet")

sql2="SELECT * FROM encuesta_autos"
rs.Open sql2,conn,3,3

Do While Not rs.EOF
uno=rs("clio")
dos=rs("peugeote")
tres=rs("gol")
rs.MoveNext
loop

total=uno+dos+tres
porcentaje1=(uno*100)/total
porcentaje2=(dos*100)/total
porcentaje3=(tres*100)/total

rs.close
conn.close