Function SQLApostropheCheck(strCheckString As String) As String
If strCheckString = "" Then
SQLApostropheCheck = ""
Else
SQLApostropheCheck = Replace(strCheckString, "'", "''")
SQLApostropheCheck = Replace(strCheckString, "&", "&&")
End If
End Function


Hi,

The function above does not seem to deal with a single quote.
ie: if strCheckString = TEST' ORDER
Any ideas?

Thanks.

Alvin