如何用opendatabase()打开一个有密码的Access数据库？

Question

写在第几个参数上啊，中间用什么分隔符呢？谢谢
写清楚了奉上全部的分，谢谢！！

Answer 1

Public Function OpenPasswordProtectedDatabase(DBPath As String, _
Password As String) As Object
'Usage: Open Password protected database
'Parameters: DBPath: Full Path to Access Database
'Password: the Password
'returns the database, in it's open state if successful.
'Otherwise return value will evalute to nothing
On Error Resume Next
Dim db As DAO.Database
Set db = DAO.OpenDatabase(DBPath, False, False, _
    ";pwd=" & Password)
If Err.Number = 0 Then
    Set OpenPasswordProtectedDatabase = db
Else
    Set OpenPasswordProtectedDatabase = Nothing
End If
End Function