数据库查询中的特殊字符的问题

", "" & chr(124) & "", 0)
End Function



Function FindFirstFixup(TextIn)
Dim Temp
Temp = ReplaceStr(TextIn, """, "" & chr(39) & "", 0)
FindFirstFixup = ReplaceStr(Temp, "(北联网教程,专业提供视频软件下载)

……