Es que no veo el fallo...
Id = Request.Form("IdNoticias")
Noticia = request.form("Noticia")
Fecha = date
Titulo = request.form("TituloNoticia")
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../db/bd.mdb"))
Set objRS = Server.CreateObject("ADODB.Connection")
strSQL = "UPDATE Noticias Set FechaNoticia = '" & Fecha & "', TituloNoticia = '" & Titulo & "', Noticia = '" & Noticia & "' where IdNoticias = '" & Id & "'"
objRS.Open strSQL, oConn, 3, 3
Set objRS = oConn.Execute(strSQL)
oConn.Close
set oConnn = nothing
Response.Redirect("noticiaver.asp?IdNoticias = " & Request.Form("IdNoticias"))