Here is a tip.

Public Sub RepairModule()
' Leo Koach (1999)
' This module takes out the "'" for SQL searches.
X = 0
Do
X = InStr(X + 1, inp, "'")
If X = 0 Then Exit Do
inp = Left(inp, X) & "'" & Right(inp, Len(inp) - X) ' inp = <text>
X = X + 1
Loop
End Sub

At least this is the way I do it.

Antbody has better ideas?

www.openplace.com