perchè la funzione qui sotto, non mi risolve il problema degli apici nei form ?

IF azione = 1 THEN

'prima riga
aCampi = aCampi & campo_01
aValori = aValori & "'" & Replace(Session("utente"), "'", "''") & "'"

'righe successive
aCampi = aCampi & ", " & campo_02
aValori = aValori & ",'" & Replace(Request.Form("form_02"), "'", "''") & "'"

aCampi = aCampi & ", " & campo_03
aValori = aValori & ",'" & Replace(Request.Form("form_03"), "'", "''") & "'"

aCampi = aCampi & ", " & campo_04
aValori = aValori & ",'" & Replace(Request.Form("form_04"), "'", "''") & "'"

aCampi = aCampi & ", " & campo_05
aValori = aValori & ",'" & Replace(Request.Form("form_05"), "'", "''") & "'"

aCampi = aCampi & ", " & campo_06
aValori = aValori & ",'" & Replace(Request.Form("form_06"), "'", "''") & "'"

aCampi = aCampi & ", " & campo_07
aValori = aValori & ",'" & Replace(Request.Form("form_07"), "'", "''") & "'"

aCampi = aCampi & ", " & campo_08
aValori = aValori & ",'" & Replace(Request.Form("form_08"), "'", "''") & "'"

sSql = "INSERT INTO " & t_dati & " (" & aCampi & ") VALUES (" & aValori & ")"

'Response.Write("<hr>" & "Inserimento" & sSql & "<hr>")
db_primo.Execute (sSql)

END IF