Manda um Replace antes de gravar, substituindo a aspa simples por um acento agudo, por exemplo.
if instr(nome,"'")<>0 then Replace (nome, "'", "´")
E retorne a aspa simples quando chamar o registro que contenha o acento agudo.
if instr(nome,"´")<>0 then Replace (nome, "´", "'")