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
实时错误 3028
不能启动应用程序,工作组信息文件丢失,或是已经被其他用户以独占方式打开
要怎么解决啊?
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货