Räcker då detta för att vara säker?
Function FriendlySQL (Term)
Term = Trim (Term)
If Term <> "" Then
Term = Replace (Term, "", """")
Term = Replace (Term, "'", "''")
Term = Replace (Term, """""""", """")
Term = Replace (Term, "''''", "''")
Term = Replace (Term, "\", "\\")
Term = Replace (Term,"'", "\\'")
End If
FriendlySQL = Term
End Function
