by Marc Ferr¨ Moliner (1 Submission)
Category: Databases/Data Access/DAO/ADO
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Wed 27th November 2002
Date Added: Mon 8th February 2021
Rating: 
(1 Votes)
Open and Close a database
API Declarations
Public db As Database
VBcoders
Function OpenDB()As Boolean
On Error GoTo Erroropening
Set db = DBEngine.Workspaces(0).OpenDatabase(databas)
OpenDB = True
Exit Function
Erroropening:
OpenDB = False
MsgBox "Error: " & Err.Number & " - " & Err.Description
End Function
Function CloseDB()As Boolean
On Error GoTo Errorclose
db.Close
Set db = Nothing
closeDB = True
Exit Function
ErrorClose:
CloseDB = False
End Function