Nothing

Public Function MakeStr(ByVal sStr As String) As String
  MakeStr = Trim(Replace(sStr , "'", "''"))
End Function

注意Str是VB的一个函数。