Attribute VB_Name = "modDb"
Option Explicit

Public gdb As Database
Public gstrDatabase As String

Public Function DataOpen() As Boolean
   gstrDatabase = "..\Employees.mdb"

   Set gdb = DBEngine.Workspaces(0).OpenDatabase(gstrDatabase)
   DataOpen = True
End Function