The Apostrophe Problem

In Ireland especially we have the terrible apostrophe problem in names and then problems with SQL commands having quotes breaking up and causing errors. Damn, it's a simple answer: replace the single quote with two single quotes before further commands.

personwithapostrophe=Replace(person,"'","''")