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