Для создания такого пространства предназначен метод CreateWorkspace объекта DBEngine. В следующем примере мы создаем рабочее пространство Microsoft Jet. На это указывает константа dbUseJet, переданная как аргумент тип. Если свойство DefaultType объекта DBEngine установлено как dbUseJet, то можно не указывать значение аргумента тип ? DAO сам создаст рабочее пространство Microsoft Jet.

Dim wrk As Workspace
Set wrk = CreateWorkspace("JetWorkspace", "Admin", "", dbUseJet)

Только что созданные методом CreateWorkspace объекты Workspace не добавляются в набор Workspaces автоматически. Если Вы хотите, чтобы новый объект Workspace стал частью набора, примените метод Append набора Workspaces. Но, даже если этот объект и не входит в набор, им все равно можно пользоваться. Добавление нового объекта Workspace в набор Workspaces необходимо, если Вы хотите работать с ним в процедурах, отличных от той, в которой Вы его создали.

Подробнее о создании рабочих пространств см. раздел ?CreateWorkspace method? (?Метод CreateWorkspace?) справочной системы DAO.

Текст пособия подготовлен на основе материалов книги
Microsoft Corporation. Руководство программиста по Visual Basic для Microsoft Office 97 / Пер. с англ. - М.: Издательский отдел "Русская Редакция" ТОО "Channel Trading Ltd.", 1997. - 544 с.: илл.
c Оригинальное издание на английском языке, Microsoft Corporation, 1997
c Русский перевод, Microsoft Corporation, 1997