Property error

[Lee Miller]

Here is the code

Dim Db As VDataBase
     Dim CountOfTables As Long
     Dim sTableName As String
     Dim i As Variant
     Set Db = CreateTestDb
     If Not Db Is Nothing Then
     'Load list of tables into MSFlexGrid2
     i = 1
     CountOfTables = Db.BaseObjectCount
     sTableName = Db.BaseObject(i)

At the line CountOfTables = Db.BaseObjectCount, it returns the correct 
value, 2.

The next line gives the following error

"Object doesn't support this property or method."

Isn't this how you locate the name of each table in a database?

Lee