[AccessD] Counting Tables In A Database

To all,

deleted a message where I think someone wanted a count of the tables within the current database, could you not use the following in a function:
    Dim db As Database
    Set db = DBEngine.Workspaces(0).Databases(0)
    db.TableDefs.Refresh
    MsgBox db.TableDefs.Count
    Set db = Nothing


Paul Hartland
paul.hartland at fsmail.net
07730 523179