Sub exaObjVar()
Dim ws As Workspace
Dim dbLib As Database
Dim tdfBooks As TableDef
Set ws = DBEngine.Workspaces(0)
Set dbLib = ws.Databases![d:\library.mdb]
Set tdfBooks = dbLib.TableDefs!BOOKS
Debug.Print tdfBooks.RecordCount
End Sub