Public Function queryext(ByVal TmpSQLstmt As String) As ADODB.Recordset
'创建Recordset对象rst
Dim rst As New ADODB.Recordset

'连接到数据库
DB_Connect
'设置rst的ActiveConnection属性，指定与其关联的数据库连接
Set rst.ActiveConnection = cnn
'设置游标类型
rst.CursorType = adOpenDynamic
'设置锁定类型
rst.LockType = adLockOptimistic
'打开记录集
rst.Open TmpSQLstmt
Set queryext = rst
End Function
这玩意该写在哪i里呢，模块？？？那么之后该怎么通过commandclick实现呢？？求思路！谢谢