用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=Microsof