Replace duttelut

Følgende kode udskifter apostrof med gåseøjne

<%
strTekst = Request.Form(\"Tekstfelt\")
strTekst = Replace(strTekst, \"\'\", \"\'\'\")
%>

Hvordan sætter jeg det ind i denne kode:

Set Conn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; \"
DSN = DSN & \"DBQ=\" & Server.MapPath(\"database.mdb\")
Conn.Open DSN

strSQL = \"Insert into nyheder (emne, nyhed) values(\'\" & Request.Form(\"emne\") & \"\', \'\" & Request.Form(\"nyhed\") & \"\')\"
Conn.Execute(strSQL)

...så den udskifter eventuelle apostroffer i emne & nyhed feltet???