Public Property Get Tables(Index) As clsEntry
End Property

Public Property Get TableCount() As Integer
End Property

Public Property Get Views(Index) As clsEntry
End Property

Public Property Get ViewCount() As Integer
End Property

Implements IDatabase

Private mColTables As Collection
Private mColViews As Collection

Private Sub Class_Initialize()
Dim rsTables As ADODB.Recordset
Dim rsFields As ADODB.Recordset
Dim x As Integer
Dim et As clsEntry
Dim ef As clsEntry
    Set mColTables = New Collection
    Set mColViews = New Collection
    Set cn = New ADODB.Connection
    cn.CursorLocation = adUseClient
    cn.Open  "dsn="  & DSN
    GetRecordsets  "select Name from sysobjects where xtype='U' order by 1 ", rsTables
    While Not rsTables.EOF
        GetRecordsets  "select top 0  * from " & rsTables( 0 ).Value, rsFields
        Set et = New clsEntry
        et.Name = rsTables( 0 ).Value
        For x =  0  To rsFields.Fields.Count -  1 
            et.AddItem rsFields(x).Name, et
        Next x
        mColTables.Add et, rsTables( 0 ).Value
        rsTables.MoveNext
    Wend
    GetRecordsets  "select Name from sysobjects where xtype='V' order by 1 ", rsTables
    While Not rsTables.EOF
        GetRecordsets  "select top 0  * from " & rsTables( 0 ).Value, rsFields
        Set et = New clsEntry
        et.Name = rsTables( 0 ).Value
        For x =  0  To rsFields.Fields.Count -  1 
            et.AddItem rsFields(x).Name, et
        Next x
        mColViews.Add et, rsTables( 0 ).Value
        rsTables.MoveNext
    Wend
End Sub

Private Sub Class_Terminate()
    Set mColTables = Nothing
End Sub

Private Property Get IDatabase_TableCount() As Integer
    IDatabase_Count = mColTables.Count 'Здесь присваевается реальное кол-во позиций в коллекции
End Property

Private Property Get IDatabase_Tables(Index As Variant) As clsEntry
    Set IDatabase_Tables = mColTables(Index)
End Property

Private Property Get IDatabase_ViewCount() As Integer
    IDatabase_ViewCount = mColViews.Count
End Property

Private Property Get IDatabase_Views(Index As Variant) As clsEntry
    Set IDatabase_Views = mColViews(Index)
End Property

Private Sub optTables_Click()
Dim x As Integer
Dim y As Integer
    TreeView1.Nodes.Clear
    If conn Is Nothing Then
        MsgBox  "No connection!" , vbExclamation
        Exit Sub
    End If

    For x =  1  To conn.TableCount 'ЗДЕСЬ TableCount возвращает ноль, вместо реального кол-ва

        TreeView1.Nodes.Add , ,  "t"  & x, conn.Tables(x).Name
        For y =  1  To conn.Tables(x).Count
            TreeView1.Nodes.Add  "t"  & x,  4 , , conn.Tables(x).Item(y).Name
        Next y
    Next x
End Sub