数据库连接.bas

zui hao yong de VBxitong

Attribute VB_Name = "数据库连接"
Option Explicit


Public conn As New ADODB.Connection

Public Function connectToDatabase() As Boolean  '连接数据库
On Error GoTo errout
    conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\main.mdb;Jet OLEDB:Database Password=kpxqykan"
    conn.Open
    connectToDatabase = True
    Exit Function
errout:
    connectToDatabase = False
End Function

Public Sub unConnectToDatabase() '断开数据库
On Error GoTo errout
    conn.Close
    Set conn = Nothing
errout:
End Sub