ACC2000: Jet OLE DB Provider Requires Jet 4.0 System Database (243466)

MORE INFORMATION

Steps to Reproduce Behavior

1. Create the following folder in the root of drive C:

   C:\Test

2. Install Access 97.
3. Copy the sample database Northwind.mdb to the C:\Test folder.
4. In Windows Explorer, browse to the following folder:

   Windows\System

   NOTE: This is the path to the System.mdw file that is installed by Access 97. On a computer running Windows NT, this file is located in the Winnt\System32 folder.
5. Copy the System.mdw file to the C:\Test folder.
6. Install Access 2000 on the same computer. Note that by default the System.mdw file for Access 2000 is installed in the Program Files\Microsoft Office\Office folder.
7. In Access 2000, create a new database.
8. Create a new module.
9. On the Tools menu, click References, and make sure the following references are selected:

   Microsoft ActiveX Data Objects 2.1 Library
   Microsoft ADO Ext. 2.1 for DDL and Security

10. Type the following function in the module:

    Function TestWorkgroup()
       Dim conn as ADODB.Connection
       Dim cat as ADOX.Catalog
       Set conn = New ADODB.Connection
    
       conn.Provider = "Microsoft.Jet.OLEDB.4.0"
       conn.Properties("Jet OLEDB:System database") = "C:\Test\System.mdw"
       conn.ConnectionString = "Data Source=c:\test\Northwind.mdb;" _
          & "User Id=Admin;Password=password"
       conn.Open
       Set cat = New ADOX.Catalog
       cat.ActiveConnection = conn
       For Each grp In cat.Users(m_sUserID).Groups  '<== error occurs here
          Debug.Print cat.Users(0).name
       Next
    End Function
    					

11. In the Immediate window, type the following function name:

    TestWorkgroup