Error in SQL-syntax?

Även fast att jag kör en replace på apostrofer så får jag felet när jag ex. skickar in : ...min far var en lika god 'kålsupare' han...
Hur skall detta göras nu, en gång för alla?

Function Function SQLEncode(ByVal sString)
	SQLEncode = Replace(trim(sString), "'", "''")
	SQLEncode = Replace(trim(sString), """", "''")
End Function

	strBody = SQLEncode(Request.form("strBody"))
....
insert bla bla

Function Function SQLEncode(ByVal sString)
	SQLEncode = Replace(trim(sString), "'", "''")
End Function

Det finns ingen anledning att ha med den andra raden. Dels så har " i en sträng ingen betydelse och dels så gör den att du tappar bort de ändringar som eventuellt gjordes i den första replace.

Såklart, tack! :)