main.bas

本源代码为学生图书管管理系统

Attribute VB_Name = "Module1"
Public conLIB As ADODB.Connection
Public strLoginName As String

Public Sub DBConnection()
    Dim strCON As String
    
    Set conLIB = New ADODB.Connection
    strCON = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\lib.mdb;Persist Security Info=False"
     
    conLIB.Open strCON
        
End Sub