各位大虾帮忙看看,我这是什么原因呢,谢谢!
Dim connection1 As Adodb.Connection
Dim statestring As String
Set connection1 = New Adodb.Connection
connection1.ConnectionString = "dsn =wwalmdb;uid = sa ; pwd =;"
connection1.Provider = "Microsoft.Jet.OLEDB.4.0"
connection1.ConnectionTimeout = 30
connection1.Open "WWAlmdb", "sa", ""
Select Case connection1.State
Case adstateclose
    statestring = "adstateclose"
Case adStateOpen
    statestring = "adstateopen"
End Select
MsgBox "connection1.state:", statestring
End Sub执行后出现:"无法启动工作程序,工作组信息文件丢失,或是以被其他用户以独占方式打开."对于您的提点不胜感激!