简单的问题：连有密码的mdb时的ConnectionString出错

[veijerd]

数据库密码为123456
1.请教如何写ConnectionString
2.使用的是vb6中的adodc，build 一个ConnectionString:
Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\_project\office\project\test4\test2.mdb;Persist Security Info=False
adodc的password属性设123456可以吗？
我这样运行时提示：
测试连接失败，因为初始化提供程序时发生错误。无法启动应用程序。工作组信息文件丢失，或是已被其他用户以独占方式打开。

不知道是什么缘故？？
谢谢~

[华芸智森]

ConnectionString,如果设置了密码,在连接字符串应该如下形式:
:Provider=Microsoft.Jet.OLEDB.4.0;Password="123456";User ID=admin;Data Source=D:\_project\office\project\test4\test2.mdb;Persist Security Info=False
从你的连接字符串看来,好象是设置密码不成功..

[victorycyz]

楼上写的字串中，Password="123456" ， 应该把双引号去掉。

[haipingma]

同意樓上

[loio]

Dim Cn As New ADODB.Connection
Private Sub Form_Load()
Constr = "Provider=Microsoft.Jet.OLEDB.4.0;Password=123;
User ID=admin;
DataSource=D:\test.mdb;
Persist Security Info=False"
Cn.Open Constr
End Sub
提示错误：
无法启动应用程序。工作组信息文件丢失，或是已被其他用户已独占方式打开。

[射天狼]

Option Explicit

'工程->引用->Microsoft ActiveX Data Objects 2.0 Library (后面为版本号)
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset

Private Sub Command1_Click()
rs.Open "SELECT * FROM TABLENAME WHERE NAME = '" & txtName.Text & "'", cn, adOpenDynamic, adLockOptimistic
If Not rs.EOF Then
Label1.Caption = rs!ID
Label2.Caption = rs!Memo
End If

rs.AddNew
rs!ID = "编号"
rs!Memo = "备注"
rs.Update
End Sub

Private Sub Form_Load()
cn.ConnectionString = "DBQ=" & App.Path & "\TelePhone.mdb;DefaultDir=" & _
App.Path & ";Driver={Microsoft Access Driver (*.mdb)};" & _
"DriverId=25;FIL=MS Access;ImplicitCommitSync=Yes;" & _
"MaxBufferSize=512;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;" & _
"Threads=3;UID=ADMIN;UserCommitSync=Yes;PWD=admind1234;"
cn.Open
'查询字符串可以上这里查
'http://www.connectionstrings.com/
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
On Error Resume Next
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing
End Sub

[veijerd]

正解
谢谢楼上的
给分~:)