Ciao,
in effetti il problema è proprio questo, ho letto alcuni messaggi sul forum, ho provato ad inserire una Funzione, tipo questa

codice:
Function quote(testo)

   quote = Replace(testo, "'", "''")

End Function
in effetti ho risolto, ora il problema è presente in fare di UPDATE, ho modificato così la stringa SQL:

codice:
<%
'---Dichiarazione variabili
	Dim IDnews, titolo, descrizione, data, fonte, SQL, RSnews

'---Recupero i valori della Form
	'titolo = Trim(Replace(Request.Form("titolo"), "'", "''"))
	'descrizione = Trim(Replace(Request.Form("descrizione"), "'", "''"))
	'data = Trim(Replace(Request.Form("data"), "'", "''"))
	'fonte = Trim(Replace(Request.Form("fonte"), "'", "''"))
	IDnews=Request.Form("IDnews")
	titolo = Request.Form("titolo")
	descrizione = Request.Form("descrizione")
	data = Request.Form("data")
	fonte = Request.Form("fonte")
Function quote(testo)

   quote = Replace(testo, "'", "''")

End Function
		
		SQL = " UPDATE News Set titolo = '"& quote(titolo) &"', '"& quote(descrizione) &"', '"& quote(data) &"', '"& quote(fonte) &"' WHERE IDnews = " & IDnews

		Set RSnews = Conn.Execute(SQL)
		Response.Write SQL
		Response.Redirect "NB_list.asp"
		
%>
Ed ho questo errore:

Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

[Microsoft][ODBC Microsoft Access Driver] Syntax error in UPDATE statement.

/admin/NB_update_proc.asp, line 29