Cant open Jet engine workgroup information file

[JohnBates]

Hi everyone -

I am trying to dissect my Access 2000 db to find the names of any given databases' reports, forms queries, tables... you get the point.
yes there are some tools in Access but they are weak; I want to use VB and reference to collections, documents etc.

I'm getting an error that I don't understand: "Error 3358 - Can't open the Jet engine workgroup information file."

I do have a System.mdw file on both my drives.

I have flagged in the code below exactly where the error occurs.

Using VB 6, Access 200 db and DAO 3.6

Thanks for any help. John


Sub PrintObjectProperties(strObjectType As String, strObjectName _
As String)
Dim dbs As Database, ctr As Container, doc As Document
Dim intI As Integer
Dim strTabChar As String

Dim prp As Object
'Dim prp As Property
'Dim prp As Properties
'Dim prp As Variant... did not help

Set dbs = OpenDatabase("D:\Custord\Menlo2000.mdb&quot

strTabChar = vbTab
' Set Container object variable.
Set ctr = dbs.Containers(strObjectType)
' Set Document object variable.
Set doc = ctr.Documents(strObjectName)
doc.Properties.Refresh
' Print the object name to Debug window.
Debug.Print doc.Name
' Print each Object property to Debug window.
For Each prp In doc.Properties

**** Here is where we get "Error 3358 Can't open Microsoft Jet engine workgroup information file"

Debug.Print strTabChar & prp.Name & " = " & CStr(prp.Value)

***********************************************************

Next

End Sub