1,216
社区成员
发帖
与我相关
我的任务
分享
Private Sub Form_Load()
Dim myWS As Workspace
Set myWS = dbengine.CreateWorkspace("Wsg", "users", "", dbUseJet)
dbengine.Workspaces.Append myWS
MsgBox CStr(dbengine.Workspaces.Count)
myWS.Close
MsgBox CStr(dbengine.Workspaces.Count)
'dbengine.Workspaces.Delete
End Sub