vb连接有密码access的请问下面的语句错在哪里？

Question

Set AccessNew = New ADODB.Connection
        AccessNew.ConnectionTimeout = 25
        AccessNew.Provider = "Microsoft.Jet.OLEDB.4.0" '数据库类型
        AccessNew.Properties("Persist Security Info") = False
        AccessNew.Properties("data source").Value = App.Path & "\a.mdb"
        AccessNew.Properties("User ID").Value = "Admin"
        AccessNew.Properties("Password").Value = "de"
    AccessNew.Open报错：严正错误。

Answer 1

AccessNew。open  “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\mydatabase.mdb;Jet OLEDB:Database Password=MyDbPassword;”
  
*****************************************************************************
欢迎使用CSDN论坛专用阅读器 : CSDN Reader(附全部源代码) http://feiyun0112.cnblogs.com/

Answer 2

AccessNew.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\a.mdb;Jet OLEDB:Database Password=MyDbPassword"