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

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.Recordset
On 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"
Else
Set rst = New ADODB.Recordset
'返回查询结果
rst.Open Trim$(SQL), cnn, _
anOpenKeysset, _
adLLockOptimistic
'rst.MoveLast 'getRecordCount & _
"条记录"
End If
ExecuteSQL_Exit

开心每一天1111
浏览 82回答 1
1回答

德玛西亚99

第2行的函数f(x)是不能从键盘输入的必须用函数定义来描述PrivateFunctionf(x)EndFunction看你的代码可知你没有运行过程序还有很多错误呢
打开App,查看更多内容
随时随地看视频慕课网APP