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