Attribute VB_Name = "mdlCommon"
Option Explicit

Public Sub OpenTable(pAdo As Adodc, pRecordSource As String) '打開一個表，得到一個數(shù)據(jù)集
    With pAdo
        .ConnectionString = "dsn=hotel"
        .CommandType = adCmdUnknown
        .RecordSource = pRecordSource
        .Refresh
    End With
End Sub

Public Function get_test() As ADODB.Recordset

Dim conn As ADODB.Connection

Dim rs As ADODB.Recordset

conn.ConnectionString = "dsn=test"

rs.Open "select * from test where age>20", conn

get_test = rs

End Function