To solve this problem, just replace the single quote with double singel quote thats it.

(ie) Replace(varName, "'", "''")

It is better to use this way for all types of string data...