如何使用ADODB连接带密码的ACCESS库？

Question

Public Function ConnectString() As String
   '返回数据连接自符串
   Dim direct As String
   direct = App.Path
   ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + direct + "\public.mdb;User Id=admin;Password=;"
End Function

Answer 1

楼上的方法试了无效啊，这个UID,PWD该是填系统用户的吧，设置DSN的，但现在是这个ACCESS库自己带密码，把密码填入不行啊，烦请高手指点

Answer 2

http://www.connectionstrings.com
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\somepath\mydb.mdb;Jet OLEDB:Database Password=你的密码;"