'传递参数SQL并传递查询语句，msg字符串传递查询信息。 自己以数据集对象的形式返回
publicfunctionexecutesql (byvalsqlasstring，msg字符串as string ) As ADODB.Recordset
Dim Cnn As ADODB.Connection '定义连接对象
Dim Rst As ADODB.Recordset
dims字符串(asstring )定义字符串数组
On Error GoTo ExecuteSQL_Error '异常处理
使用stokens=Split(SQL ) split函数生成包含各个子字符串的数组
Set Cnn=New ADODB.Connection '创建连接对象
打开Cnn.Open ConnectString '连接目标
ifinstr(insert、DELETE、UPDATE )、ucase$ ) stokens(0) ) Then )确定字符串是否包含指定的内容
Cnn.Execute SQL '执行查询语句
MSGstring=stokens(0) query successful )返回查询信息
Else
Set Rst=New ADODB.Recordset '创建数据集对象
Rst.Open Trim$(SQL )、Cnn、adOpenKeyset和adLockOptimistic '打开记录集并返回查询结果。 Trim$(sql )是要执行的SQL命令字符串。 Cnn是Recordset对象的活动连接属性值，也就是数据源的活动链接，用于设置连接到哪个数据库。 以下两个参数是“键集光标”和“乐观锁定”。
Set ExecuteSQL=Rst '返回记录集对象
msg string='联系rst.record count '记录'
End If
ExecuteSQL_Exit:
Set Rst=Nothing '清空数据集对象
Set Cnn=Nothing '切断
退出函数
ExecuteSQL_Error: '错误处理
MsgString='查询错误：' Err.Description
msgbox msg字符串
Resume ‘“错误处理程序完成后，返回' ExecuteSQL_Exit '行继续运行
最终函数