module1.bas

宿舍管理系统

Attribute VB_Name = "Module1"
Public yhid As String
Public pass As String
Public db As Database
Public admi As Boolean
Sub opendb()
DBEngine.DefaultType = dbUseJet
Set db = DBEngine.OpenDatabase("e:\sushek.mdb  ", False, False)

End Sub