Attribute VB_Name = "ODBC"
'******************************************************
'我為人人
'人人為我
'枕善居漢化收藏整理
'http://www.mndsoft.com/blog/
'e-mail:mnd@mndsoft.com
'2005.03.05
'******************************************************
Public cn As ADODB.Connection

Public Function DBConnect() As Boolean

    On Error GoTo OpenErr
    
    Dim MSDatabase
    
    Set cn = New ADODB.Connection
    
    MSDatabase = App.Path & "\" & "Database.mdb"
        cn.CursorLocation = adUseClient
        cn.Provider = "Microsoft.Jet.OLEDB.4.0"
        cn.Open MSDatabase, Admin
        DBConnect = True
    Exit Function

OpenErr:
    
        MsgBox "打開錯誤 " & MSDatabase & vbNewLine & Err.Description, vbCritical, "數據庫打開錯誤"
        DBConnect = False


End Function