' 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(sql As String, Optional TypeOfQuotesToFix As QuoteType = 1) As String

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