problema con replace

[zeweb]

So che è un problema trattato molte volte e fin'ora ho sempre risolto, ma adesso in un mio modulo ho dei problemi se in campo memo "dettagli" uno mi mette un apice (')

Ho scritto così ma non funziona ancora

email = Request.form("email")
referente = Request.form("referente")
telefono = Request.form("telefono")
servizio = Request.form("servizio")
dettagli = Request.form("dettagli")
[COLOR=red]
dettagli = Replace(dettagli,"'","''")
[/COLOR]
budget = Request.form("budget")
consegna = Request.form("consegna")
trovato = Request.form("trovato")

Set objConn = Server.CreateObject("ADODB.Connection")
str="Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/mdb-database/db.mdb")
objConn.Open str
str=""
stringa_1="INSERT INTO tabella ("'Values (
for each variable_name in request.form
    value=request.form(variable_name)
    if ((not variable_name="button") ) then 'aggiungere OR ....
        if (not variable_name="privacy") then 
        'response.write variable_name& " - " &value &"
"
        str=str+ variable_name +","
        str2=str2 &"'"&value&"',"
        end if
    end if
next
str=stringa_1 + Left(str,len(str)-1) + ") Values (" + Left(str2,len(str2)-1)+")"
Set objRs = objConn.Execute (str) 

Grazie