How to use the OpenDatabase method to open password-protected databases in Access 2000

If you want to use the OpenDatabase method to open a password-protected database, specify the database password as part of the Connect argument. The syntax to open a database with the OpenDatabase method is as follows: NOTE: Even though the Options and Read-Only arguments of the OpenDatabase method are documented in Help as being optional arguments, you must provide them when you use the Connect argument. If you use a Connect argument and you do not provide the Options and Read-Only arguments, you receive run-time error 3031: You receive this error message even if the password that you provided in the Connect argument is correct. If you do not need to use a Connect argument, you can omit the Options and Read-Only arguments.

When you use the OpenDatabase method to open a password-protected Access database, the Connect argument of the OpenDatabase method requires the following syntax: To use the OpenDatabase method to open the sample database Northwind.mdb (which is protected with a database password of "northwind"), follow these steps:

NOTE: The sample code in this article uses Microsoft Data Access Objects. For this code to run properly, you must reference the Microsoft DAO 3.6 Object Library. To do so, click References on the Tools menu in the Visual Basic Editor, and make sure that the Microsoft DAO 3.6 Object Library check box is selected.

CAUTION: If you follow the steps in this example, you modify the sample database Northwind.mdb. You may want to back up the Northwind.mdb file and follow these steps on a copy of the database.

1. Start Microsoft Access and open the sample database Northwind.mdb for exclusive access. To do so, click Open Database on the File menu, click the arrow on the Open button to display the options, and then click Exclusive Open.
2. On the Tools menu, point to Security, and then click Set Database Password.
3. Type northwind in both the Password and Verify boxes.
4. Click OK to close the Set Database Password dialog box.
5. Close the database.
6. Create a new, blank database.
7. Create a module and type the following procedure:
   
   NOTE: Substitute the correct path to Northwind.mdb on your hard disk in the following sample code.

   Sub OpenDB()
    Dim db As DAO.Database
    Dim ws As DAO.WorkSpace
    Dim rst As DAO.Recordset
    Set ws = DBEngine.WorkSpaces(0)
    Set db = ws.OpenDatabase _
    ("C:\Program Files\Microsoft Office\Office\Samples\Northwind.mdb", _
    False, False, "MS Access;PWD=northwind")
    Set rst = db.OpenRecordset("Customers", dbOpenDynaset)
    If rst.RecordCount > 0 Then
      rst.MoveLast
      MsgBox rst!CustomerID
    End If
    rst.Close
    db.Close
   End Sub
   

8. To test this procedure, type the following line in the Debug window, and then press ENTER:
   OpenDB
   Note that a message box displays the Customer ID of the last record in the Customers table, indicating that the database was successfully opened.