mdlcommon.bas

酒店收费系统

Attribute VB_Name = "mdlCommon"
Option Explicit

Public Sub OpenTable(pAdo As Adodc, pRecordSource As String) '打开一个表，得到一个数据集
    With pAdo
        .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _
            & App.Path _
            & "\Hotel.mdb;Persist Security Info=False"
        .CommandType = adCmdUnknown
        .RecordSource = pRecordSource
        .Refresh
    End With
End Sub