Public Function EscSQ(ByVal str As Variant) As String
    If Not IsNull(str) Then EscSQ = Replace(str, "'", "''") Else EscSQ = ""
End Function

I think this is required for 'criteria' variables when engineering DLookUp expressions, as well as 'sql' variables.

[How inappropriate is it in this forum to burst in and post stuff that doesn't build on anyone else's comment? I'm trying to make a positive contribution with least disruption. My idea is that this be added to the cold-vault (lol)]