怎样用程序打开一个有密码的数据库？

Question

Set phonedb = dbengine.OpenDatabase(App.Path & "\tele.mdb",dbVersion30, False, dbLangChineseSimplified & ";pwd=password")

Answer 1

Dim strconnect As String
strconnect = ";datase=" & App.Path & "\tele.mdb;" & "pwd=password"
Set phonedb = OpenDatabase(App.Path & "\tele.mdb", True, False, strconnect)

Answer 2

Dim cn As New ADODB.Connection
  Dim rec As New ADODB.Recordset
  Set cn = New Connection
  cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="gz.mdb" & ";Jet OLEDB:Database Password=12345"
  cn.CursorLocation = adUseClient   'This cursor is on the client machine instead of the server
  cn.Open
  Set rec = New ADODB.Recordset
  rec.Open "select * from ltgz", cn, adOpenStatic, adLockOptimistic
  Set DataGrid2.DataSource = rec
  DataGrid2.Refresh

Answer 3

Set ws = dbengine.WorkSpaces(0)
Set db = ws.OpenDatabase(App.Path & "\tele.mdb", True, False, ";pwd=password")