Ado连接模块

超强ADO连接模块，Public Function QueryExt(ByVal TmpSQLstmt As String) As ADODB.Recordset Dim rst As New ADODB.Recordset '创建Recordset对象rst GetConnStr '连接到数据库 Set rst.ActiveConnection = Conn '设置rst的ActiveConnection属性，指定与其关联的数据库连接 rst.CursorType = adOpenKeyset '设置游标类型 rst.LockType = adLockOptimistic '设置锁定类型 rst.Open TmpSQLstmt '打开记录集 Set QueryExt = rst '返回记录集 End Function