为什么连接带密码的数据库时,会提示“工作组信息文件丢失,或被其他用户用独占方式打开”?
为什么连接带密码的数据库时,会提示“工作组信息文件丢失,或被其他用户用独占方式打开”?结果连接不成功。如果不带密码的时候就可以。我是把数据库连接写在模块里的,代码如下:
Public Function Conne() '数据库连接函数
'
Dim objcn As New ADODB.Connection
Dim strCn As String
Set objcn = New ADODB.Connection
strCn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\KTV.mdb;User Id=admin;Password=admin;"
With objcn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = strCn
.Open
End With
Set Conne = objcn
End Function