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
德玛西亚99