Microsoft VBScript runtime error '800a01b6'

Object doesn't support this property or method: 'RecSet.addnews'

/News_DB.asp, line 59

Questo è l'errore che mi riporta l'ho evidenziato di rosso. Qualcuno sa spiegarmi come mai non funziona? Grazie.

<%
'PERCORSO DEL DATABASE
url_DB = "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("/fpdb/database.mdb")

Set Conn = Server.CreateObject("ADODB.Connection")
conn.open url_DB

'CONTROLLA CHE TUTTI I CAMPI SIANO STATI COMPILATI
If Len(Request("autore")) = 0 or Len(Request("titolo")) = 0 or Len(Request("contenuto")) = 0 then

'CAMPI NON COMPILATI
%>
<hr>
<p align="center"><font face="Verdana" size="4">Campi non compilati!</font>
</p>
<%

else

'CAMPI COMPILATI

'RICEVE L'OPERAZIONE DA SVOLGERE (AGGIUNGERE O MODIFICARE LE NEWS)
operazione = Request.QueryString("tipo")

Set RecSet = Server.CreateObject("ADODB.Recordset")

'IN BASE ALL'OPERAZIONE CREA LA QUERY AL DATABASE

If operazione = "aggiungi" then
'DEVE AGGIUNGERE LA NEWS
SQL = "SELECT * FROM NEWS"

else

'DEVE MODIFICARE LA NEWS
SQL = "SELECT * FROM NEWS WHERE ID = " & Request.QueryString("id") &""

RecSet.Open SQL, Conn, adOpenStatic, adLockOptimistic
End IF
'OPERAZIONE: AGGIUNGI NEWS

If operazione = "aggiungi" then RecSet.Addnews

AGGIUNGE LA DATA CORRRENTE
RecSet("data") = date()
End If

RecSet("titolo") = Request.Form("titolo")
RecSet("autore") = Request.Form("autore")
RecSet("contenuto") = Replace(Request.Form("contenuto"), chr(13), "
")

'AGGIORNA E CHIUDE IL DB
RecSet.Update
RecSet.Close
Set RecSet = Nothing
%>
<hr>
<p align="center"><font face="Verdana" size="4">Operazione eseguita correttamente!</font>
<hr>
<%

Conn.Close
Set Conn = Nothing
%>