module1.bas

数据库原理及设计 运动会成绩管理系统 大二自己做的课程设计

Attribute VB_Name = "Module1"
Public Conn As New ADODB.Connection
Public s As String

Public Sub OpenDB()
s = "Driver={sql server};Server=FE95854F95D147D;Database=运动会成绩管理系统"
Conn.Open s
End Sub
Private Sub EndDB()
Conn.Close
End Sub