Attribute VB_Name = "Globals"
Option Explicit


'===============================================================
' this "module" has common variables, but
' there can be added other Databases, Workspaces, and so on ...
'---------------------------------------------------------------
Public MyWs As Workspace

Public ImportFromDatabaseName$

Public MyDB As Database
Public DBOpen As Boolean

Public Rs As Recordset
Public Rs_Open As Boolean


'DESC Loose db-close proc.
'
'
Public Sub CloseDB()
On Error GoTo he
If DBOpen Then
   MyDB.Close
   Set MyWs = Nothing
   DBOpen = False
End If
Exit Sub
he: MsgBox "Exception " & Err.Number & _
    " when closing database." & vbCrLf & Err.Description
End Sub