Open メソッドで AccessWorkspace を取得

Dim pPropertySet As IPropertySet
Set pPropertySet = New PropertySet
pPropertySet.SetProperty "DATABASE", "D:\Workspace\PGDB.mdb"     'ワークスペース名
 
Dim pWorkspaceFactory As IWorkspaceFactory
Set pWorkspaceFactory = New AccessWorkspaceFactory
 
Dim pWorkspace As IWorkspace
Set pWorkspace = pWorkspaceFactory.Open(pPropertySet, Application.hWnd)