Sub temp() Dim db As Database Set db = DBEngine(0)(0) Debug.Print "Table count: " & db.TableDefs.Count End Sub