' Code courtesy of UtterAccess Wiki
' http://www.utteraccess.com/wiki/index.php/Category:FunctionLibrary
' Original submission by Walter Niesz
' July 25, 2010

' DESCRIPTION
' When submitting strings of text for use with SQL,
' it is often required to double any occurances of
' single or double quotes to prevent the SQL string
' from being malformed.

Enum QuoteType
   FixSingleQuotesOnly = 1
   FixDoubleQuotesOnly = 2
   FixSingleAndDoubleQuotes = 3
End Enum

Public Function FixQuotes(StringToFix As String, Optional TypeOfQuotesToFix As QuoteType = 1) As String

   Select Case TypeOfQuotesToFix
       Case 1
           FixQuotes = Replace(StringToFix , "'", "''")
       Case 2
           FixQuotes = Replace(StringToFix , """", """""")
       Case 3
           FixQuotes = Replace(StringToFix , "'", "''")
           FixQuotes = Replace(FixQuotes, """", """""")
   End Select
   
End Function