函数显示未定义该怎么解决？感觉好多错误哈

Question

Dim cnn As ADODB.Connection'定义链接Dim rst As ADODB.Recordset'定义字符串'Dim sTokens() As String'异常处理Public Function ExecuteSQL(ByVal SQL As String, MsgString As String) As ADODB.RecordsetOn Error GoTo ExecuteSQL_Error'用Split函数产生一个包含各个子串的数组sTokens = Split(SQL)'创建链接Set cnn = New ADODB.Connection'打开链接cnn.Open connectString'判断字符串中是否含有指定内容If InStr("INSERT,DELETE.UPDATE", UCase$(sTokens(0))) Then'执行查询语句cnn.Execute SQL'返回查询信息'MsgString = sTpkens(0) & "query successful"ElseSet rst = New ADODB.Recordset'返回查询结果rst.Open Trim$(SQL), cnn, _anOpenKeysset, _adLLockOptimistic'rst.MoveLast 'getRecordCount & _"条记录"End IfExecuteSQL_Exit

Answer 1

第2行的函数f(x)是不能从键盘输入的必须用函数定义来描述PrivateFunctionf(x)EndFunction看你的代码可知你没有运行过程序还有很多错误呢