Question

VB如何打开设有密码的ACCESS数据库？

原代码可以连接打开无密码的ACCESS，如下：
Public con As New ADODB.Connection
Public rst As New ADODB.Recordset
Public CS As String
Sub main()
CS = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\dxs.mdb;Persist Security Info=False"
con.Open CS
应如何改才能打开有密码的ACCESS呢？

Answer 1

cs="Provider=Microsoft.Jet.OleDb.4.0;Data Source="& App.Path & "\dxs.mdb;Jet OleDb:DataBase Password=密码"

Answer 2

Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=yourpassword;Data Source=" & App.Path & "\dxs.mdb;Persist Security Info=True