VB连接有密码的ACCESS 另问

Question

Dim db As Database
Dim rs As Recordset
Set db = OpenDatabase(App.Path & "\zhDB.mdb")如果用以上的语句，方法能不能打开一个有密码的ACCESS 呢？？虽然我知道了另外一种方法可以打开，但我想考虑下这样的方法可以吗？

Answer 1

Set db = OpenDatabase(App.Path & "\zhDB.mdb",   False,   False,  ";pwd="   &   Password) 

Answer 2

ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "数据库名.mdb;Jet OleDB:Database Password=密码"
Set DB = New Connection
DB.CursorLocation = adUseClient
DB.Open (ConnStr)

Answer 3

本地计算机：
Dim conn As New ADODB.Connection
Dim ConnectionString As String
 ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
 "Data Source=" & App.Path & "\data\kpwd.mdb;Persist Security Info=False;Jet OLEDB:Database password=810000"
conn.Open ConnectionString         '打开数据库远程计算机：
Dim conn As New ADODB.Connection
Dim ConnectionString As StringConnectionString = "provider=Microsoft.Jet.OLEDB.4.0;" & _
                "Data Source=\\" & netcom & "\data\kpwd.mdb;persist security info=false;jet oledb:database password=89944100"
conn.Open ConnectionString         '打开数据库