Felet är att arg är null. Du kan inte använda strängfunktioner på ett nullvärde. Antingen får du kontrollera innan du anropar funktionen, eller också får du göra om värdet i funktionen:
Function sqlSecure(arg)
[b]arg = "" & arg[/b]
arg = Replace(arg, "'", "'")
arg = Replace(arg, "|", "|")
sqlSecure = arg
End Function