Question : dlookup with ' in the text does not work

i have a dlookup statement,
Code = DLookup("[group code]", "[merchandise product groups]", "[group description] = '" & id & "'")
and this is working fine except when there is something like Apparel/Adult's Footwear where there is a '

any idea how to make this work ????

Answer : dlookup with ' in the text does not work

1:	Code = DLookup("[group code]", "[merchandise product groups]", "[group description] = '" & replace(id, "'", "''") & "'")