Access VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Access
  4. Closes the Workspace
Sub closeWorkspace()
    Dim myWorkspace As Workspace
    Set myWorkspace = DBEngine.Workspaces(0)
    myWorkspace.Close
End Sub