module1.bas

宾馆在正常的运营中需要对客房资源、顾客信息、结算信息进行管理

Attribute VB_Name = "Module1"
Public flagEdit As Boolean
Public gintMode As Integer

Public Sub lianjie()
Dim db As Database
Dim rs As Recordset
Set rs = db.OpenRecordset("select * from 旅店登记", db, adOpenStatic, adLockReadOnly)
Set DataGrid1.DataSource = rs




End Sub