Апостраф в SQL запросе

[SSSerj]

Мне нужно задать RecordSource для объекта data. При этом я ищу фирму с названием AAAA'aaa (это пример, самое главное что в названии есть апостров). Ниже я написал запрос который я пихаю в объект data, он ругается говорит рантайм ерор №3075. Без апострафа всё работает нормально. Как заставить объект data обработать такой запрос?

Select * From TextShow Where DogovorNumber = 8888 And FilialName = 'AAAA'aaa'

P.S. Ниже я превёл фрагмент кода в котором я получаю рантайм ерор.

dataTextEnter.RecordSource = "Select * From TextShow Where DogovorNumber =" + Str(MDIfrmExodus.dataPayBase.Recordset.Fields("DogovorNumber")) + " And FilialName = '" + MDIfrmExodus.dataPayBase.Recordset.Fields("FirmaName") + "'"

[skiperski]

Код: Выделить всё

s = Replace(s, "'", "''")