lave funktion der replacer apostroffer?

du skal bare køre en replace - fx sådan;

VAR = Replace(Request.Form("formfelt"),"'","''")

hvis jeg nu har dette der får data fra en form hvor skal den VAR indsættes:
dato = request.form("dato")
klokken = request.form("klokken")
vejnavn = request.form("vejnavn")
       
       
       
        SQL = "Insert into kalender (dato, klokken, vejnavn) values(#" & dato & "#,'" & klokken & "','" & vejnavn &"')"

Der kan være apostrofer i vejnavn f.eks Dag hammerskjøld´s alle

ingen steder - VAR er bare navnet på min variabel hvor du kalder dine variabler klokken og vejnavn...

klokken = Replace(request.form("klokken"),"'","''")
vejnavn = Replace(request.form("vejnavn"),"'","''")