Access VisualBasic Script

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