Using quotes in data bound web pages.
Public Function FixQuotes(ByVal strValue As String) As String
FixQuotes = Replace(strValue, "'", "''")
End Function
Syntax:
Dim strNew as String
strNew = FixQuotes("This 'text' has "quotes" in it")
Last Updated: 4/27/2018