Error al insertar codigo en Bd

[sqa212]

Perdona, trasgukabi

si pongo:
<% Function AcomodarTXT(txt)
txt = Replace (txt, "<", "&lt;")
txt = Replace (txt, ">", "&gt;")
txt = Replace (txt, vbCrLf, "<BR>")
txt = Replace (txt, "''", "'")
acomodarTXT = txt
End function %>

me aparece esto:
insert into funciones (codigofuncion) values ('')

si quito <% y %> me aparece:

insert into funciones (codigofuncion) values ('Function AcomodarTXT(txt) txt = Replace (txt, "<", "<") txt = Replace (txt, ">", ">") txt = Replace (txt, vbCrLf, "
") txt = Replace (txt, "''", "'") acomodarTXT = txt End function ')