Problema con sentencia

[Elalux]

Bueno gente tengo este código, lo necesito para actualizar la siguiente tabla Noticias de la base de datos., cuyos campos Resumen y Cuerpo son de texto y Memo respectivamente.

_________________________________________

<%
Dim dbc, strConn
Dim strSQL, rs
Dim Buscar

Sub OpenDB()
Dim BD
BD = Server.MapPath("japay.mdb")
strConn = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & BD & ";"
Set dbc = Server.CreateObject("ADODB.Connection")
dbc.open strConn
Set rs = Server.CreateObject ("ADODB.Recordset")
End Sub

Sub CloseDB()
Set rs = Nothing
dbc.Close
Set dbc = Nothing
End Sub

'Declaro variables

DIM resumen, cuerpo, ID

'recibo los datos desde el formulario y se los asigno a cada variable

resumen = request.form ("resumen")
cuerpo = request.form ("cuerpo")
ID = request.form ("ID")


'abro la base de datos

Call OpenDB()
strSQL= "SELECT * FROM Noticias ORDER BY ID;"

'creo el Record Set
set rs = dbc.Execute(strSQL)

'Me muevo al registro cuyos campos quiero modificar
rs.move(ID)


strSQL="insert into noticias (Resumen, Cuerpo) "
strSQL = strSQL & "VALUES ('" & resumen & "', '" & cuerpo & "');"

' Esta es la línea 28

dbc.Execute(strSQL)

'Cierro la base de datos

Call CloseDB()
%>

________________________________

En la sentencia dbc.Execute(strSQL) me carca el siguiente error el navegador

Microsoft OLE DB Provider for ODBC Drivers error '80004005'

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

/propuestas/japay/guardar.asp, line 28

A que creen que se deba?