mdlcommon.bas

system是我酒店管理系统的成品。。。又能力的反编可以得到更多资料。。。一个可是化课操作的窗口

Attribute VB_Name = "Module1"
Option Explicit
Public fla As Boolean
Public biaozhi As Boolean
Public strRoomState As String

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