这个函数为啥错误?

Question

这段代码为啥出错?错误:
Error Number: 5
Description: Invalid procedure call or argument
Public Function Encode(ByVal sInput As String) As StringOn Error GoTo PROC_ERROR:Rem 字符 ' 的处理
Const ERROR_LOCATION As String = CLASS_NAME & ".Encode"Dim sOrignal As String
Dim sTarget As String
Dim sTemp As String
Dim nPos As LongsTemp = sInputsTemp = StrConv(sTemp, vbNarrow)
sTemp = Replace(sTemp, "'", "''")Encode = sTempPROC_EXIT:Exit FunctionPROC_ERROR:Encode = Replace(sTemp, "'", "''")LogError Err.Number, ERROR_LOCATION, Err.DescriptionGoTo PROC_EXIT:End Function

Answer 1

首先，有个常量你没有定义（或没有贴出）：
CLASS_NAME第二，子程序未定义（或没有贴出）：
LogError第三，标记未出现：
PROC_EXIT

Answer 2

做编码的, sTemp = StrConv(sTemp, vbNarrow, GetSystemDefaultLCID) 好像可以了另外问一下:Connection.execute sSQLsSQL 长度时候有限制? 如果我有一个ntext类型的非常大的sSQL, 怎么执行