用vb 打包ADO的自定义类

用vb 封装ADO的自定义类？
哪位高人做过用vb 封装ADO的自定义类？
给个实用的例子，我马上给分
[解决办法]
Public Function ExecRS(ByVal pCmd As String, pDCN As ADODB.Connection, Optional pAsync As Boolean = False) As ADODB.Recordset
Dim tmpRs       As ADODB.Recordset
    
    Set tmpRs = New ADODB.Recordset
    
    If Not pAsync Then
        tmpRs.Open pCmd, pDCN, adOpenForwardOnly, adLockReadOnly, adCmdText
    Else
        bCompleteExec = False
        tmpRs.Open pCmd, pDCN, adOpenForwardOnly, adLockReadOnly, adAsyncExecute
        Do While Not bCompleteExec
            DoEvents
        Loop
    End If
    
    Set ExecRS = tmpRs
    Set tmpRs = Nothing
    
End Function
[解决办法]
哎!
[解决办法]
谢谢
[解决办法]
使用ADO对象操作数据库的函数：http://download.csdn.net/source/1498324
[解决办法]
呵呵，1楼也会给代码了

给lz个简单明了的

Public Function ExecuteSQL(ByVal sql As String) As ADODB.Recordset
    Dim cn As ADODB.Connection, connstring As String
    Dim rs As ADODB.Recordset
    Set cn = New ADODB.Connection
    connstring = "provider=Microsoft.Jet.OLEDB.4.0;Data source =" & App.Path & "/xs.mdb"
    cn.ConnectionString = connstring
    cn.Open
    Set rs = New ADODB.Recordset
    rs.Open sql, cn, adOpenKeyset, adLockOptimistic
    Set ExecuteSQL = rs
End Function

[解决办法]
Public Function GetRst(DataFile As String,TName As String) As ADODB.Recordset 
    Dim cn As New ADODB.Connection, constr As String
    constr="provider=Microsoft.Jet.OLEDB.4.0;Data source =" & DataFile 
    cn.Open constr 
    Set getRst=cn.Execute("select * from " & TName) 
End Function 

[解决办法]
Public Function GetRst(DataFile As String,TName As String) As ADODB.Recordset
可是我要是把这个函数写在DLL 里，可是在DLL与主应用程序间不能传递ADO对象，总是出错
[解决办法]

引用:

Public Function GetRst(DataFile As String,TName As String) As ADODB.Recordset
可是我要是把这个函数写在DLL 里，可是在DLL与主应用程序间不能传递ADO对象，总是出错

要先在你的 Dll 工程里引用 ADODB 对象！
[解决办法]

引用:

Public Function GetRst(DataFile As String,TName As String) As ADODB.Recordset
可是我要是把这个函数写在DLL 里，可是在DLL与主应用程序间不能传递ADO对象，总是出错

因为VB写的ActiveX DLL与调用者处于同一个进程，因此可以直接传递记录集等对象，LZ出错是因为你的代码有问题。
[解决办法]
DLL封装的是各对象的方法属性及调用过程，对象还是在你的主程序中吖，检查写法是否正确，还要注意引用的是不是相同的ADODB
[解决办法]
是啊，为什么我这边会出差呢，我原行以为这也是情理之中的事情，可是在我这就是出差
[解决办法]
代码没写好呗.

数据库操作全部封在DLL中.
哪个项目都可以用.
[解决办法]
学些东西