Sub test() MsgBox "Workspace Count: " & DBEngine.Workspaces.Count MsgBox "Workspace Name: " & DBEngine.Workspaces(0).Name End Sub