module1.bas

图书管理系统,已经用于市场,此软件只供学习使用,不的用于商业行为

Attribute VB_Name = "Module1"
Option Explicit
Public conn As ADODB.Connection
Public picturecount As Integer '记录预览的页数

Public Function ConnectToDatabase() As Boolean
   On Error GoTo ERR_CONN
   Set conn = New ADODB.Connection
   With conn
       .CursorLocation = adUseClient
       .CommandTimeout = 10
       .ConnectionString = "PROVIDER=MSDataShape;Data Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\data\database.mdb" & ";Persist Security Info=False;Jet OLEDB:Database Password=1"
       .Open
   End With
   ConnectToDatabase = True
   Exit Function
ERR_CONN:
    ConnectToDatabase = False
End Function