Ho risolto cosi:

inserendo questo
descrizione = Trim(Replace(Request.Form("descrizione"), "'", "''"))

e come stringa SQL

SQL = " UPDATE News Set titolo = '" & titolo & "', descrizione = '" & descrizione & "', data = '" & data & "', fonte = '" & fonte & "' WHERE IDnews = " & IDnews