Private Function FixUp(TheText)
if not isnull(Thetext) or len(Thetext)<>0 then
  FixUp = Replace(Replace(TheText,"'","`"),Chr(34),Chr(34)&Chr(34))
end if
End Function