module1.bas

宿舍管理系统 华东师范大学第二专业班用V实现

Attribute VB_Name = "Module1"
Option Explicit
 
 '定义cnn为数据库连接对象
Public room As New ADODB.Connection
Public DBcnnstr As String
Sub Main()
    '连接数据库
         DBcnnstr = "Driver={sql server};server=974D37B75B63426;uid=lau;pwd=123456;database=room"
         room.Open DBcnnstr
    '加载窗体form1
    Form2.Show
    
End Sub