Usa questa funzione per access:

function sostituiscisql(text)
if len(text) > 0 then
sostituiscisql=replace(text, "'", "''", 1, -1, 1)
end if
end function