module1.bas

宿舍管理系统

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