problema update

[carlosfdez]

Pues resulta que quiero hacer una actualizacion a un campo. Simplemente quiero que se incremente en uno cada vez que se visita la pagina pero siempre me da el mensaje:

Tipo de error:
ADODB.Recordset (0x800A0CB3)
El Recordset actual no admite actualizaciones. Puede ser una limitación del proveedor o del tipo de bloqueo seleccionado.

este es el codigo que tengo:
<%
Dim oConn
Dim oConn2
Dim AddVisita
'AddVisita = Cint(objRS("visitas")) + 1
'Response.Write(AddVisita)

Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("bdforo\bd.mdb"))

strSQL = " SELECT * FROM Tema where Id= " & Request.QueryString("Id")
Set objRS = oConn.Execute(strSQL)
objRS("Visitas") = objRS("Visitas") + 1
objRS.Update


%>