在VB 6.0中替换'with''时堆栈溢出

I'm looking into some legacy VB 6.0 code (an Access XP application) to solve a problem with a SQL statement by the Access app. I need to use replace single quotes with 2 single quotes for cases where a customer name has an apostrophe in the name (e.g. "Doctor's Surgery":I'm looking into some legacy VB 6.0 code (an Ac