VB Code:
  1. Public Function AddSlashes(strText As String) As String

  2.  strText = Replace$(strText, Chr(34), "\" & Chr(34))

  3.  strText = Replace$(strText, Chr(39), "\" & Chr(39))

  4.  

  5.  AddSlashes = strText

  6. End Function

  7.  
  8. Public Function StripSlashes(Text As String) As String

  9.  Text = Replace$(Text, "\" & Chr(34), Chr(34))

  10.  Text = Replace$(Text, "\" & Chr(39), Chr(39))

  11.  

  12.  StripSlashes = Text

  13. End Function

Use the first function whenever you add data to your DB. It puts in front of all quotes \. And when you get data from DB use StripSlashes, it removes \ in fron of the quotes.