I\'m trying to simply prove here that this simple function isn\'t good enough to prevent every sql injection in the world:
Function CleanForSQL(ByVal input A
I think your problem is that Chr(8) is not executed, you need to find another way to get the leading quote mark in.
Chr(8)