ACC97: Run-Time Error '3028' Using CreateWorkspace Method with a Password Argument (181961)

MORE INFORMATION

Steps to Reproduce Behavior

1. Open the sample database Northwind.mdb.
2. Create a new module and type or paste the following code:
   

         Public Sub TestWorkspace()
   
           Dim wrkAdmin As Workspace
           Dim dbs As Database
   
          'Create a new workspace and assign it to the database administrator.
           Set wrkAdmin = CreateWorkspace("AdminWorkspace", "Admin", "test", _
           dbUseJet)
   
          'Be sure to change the path in this next line to match your path to
          'Northwind.mdb on your computer.
           Set dbs = wrkAdmin.OpenDatabase("C:\Northwind.mdb", False)
   
          'Close the session.
           wrkAdmin.Close
   
         End Sub
   						

3. On the Debug menu, click Compile And Save All Modules. Save the module as modTestWorkspace.
4. Close the module. On the Tools menu click Security, and then click User And Group Accounts.
5. Click the Change Logon Password tab and change your password to test
   
   NOTE: This article assumes that you have logged into the database as the "Admin" user. If the User Name field within the Change Logon Password dialog reads anything other than Admin, close the database and log on as Admin before continuing.
6. Close the database, and then close Microsoft Access 97.
7. Run Microsoft Access 97, and log on as the "Admin" user with a password of test.
8. To test this procedure, type the following line in the Debug window, and then press ENTER.
   
   Call TestWorkspace
   
   Note that you receive the error message mentioned in the "Symptoms" section.