Error en la este código UPDATE

[Hereze]

Hola, estoy ahciendo una página, y en concreto en esta que hay una consulta actualizable, me está dando un error que no cinsigo resolver. El código es el siguiente:

<%
'Ident=Request.QueryString("Id")
Dim Conn, Connect_String,Respuesta
Connect_String="Provider=MSDASQL.1;Persist Security Info=False;Data Source=prueba"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Mode = adModeReadWrite
Conn.ConnectionString = Connect_String
Conn.Open

Dim strSQLDeseos
strSQLOtros = "SELECT Otros.* FROM Otros WHERE Id= 1"
Set rsOtros = Server.CreateObject("ADODB.Recordset")


'set rs=Conn.execute(strSQLDeseos)

rsDeseos.Open strSQLOtros, Conn, 3
If rsDeseos.RecordCount = 0 Then
'***no hay Deseos activos***
Response.Write "num=0&kk=1"
Else
response.write(conn.Mode)
'sqlstr="UPDATE Otros SET Activo = 1 WHERE Id=1"
'set rs=Conn.execute(sqlstr)
rsDeseos.MoveFirst
rsDeseos("Activo") = True
rsDeseos.Update
Response.Write "num=1"
End If

rsDeseos.Close
Set rsDeseos = Nothing
Conn.Close
Set Conn = Nothing
%>

Si la ejecuto, me da el siguiente error:

0

ADODB.Recordset error '800a0cb3'

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

/mio/modifica.asp, línea 26

El servidor es uno dedicado y obviamente no hay limpitación ni bloqueo alguno, ya que ejecutamos otras aplicaciones ASP sin problemas.

Si funciona correctamente, este código debería ejecutar una consultar que para el registro cuya Id=1 actualizara el campo Activo a Verdedaro.

El campo es un Si/No y la base de datos una Access versión 2000.

Gracias.