L'esempio che ti avevo postato riportava i nomi delle tabelle e il numero dei record presenti in ogni tabella in una listview. Tu hai questa necessità? O hai bisogno di visualizzarli, controllarli in altro modo?
Comunque come ti ho scritto all'inizio la listview deve avere la proprietà View impostata a 3-IvwReport (la listview ti verrà presentata come una "griglia" se imposti la proprietà Gridlines = True ) dove nella prima colonna (1) vedrai il nome della tabella, nella seconda (subitem(1)) il numero dei record presenti:

Se vuoi vedere i nomi delle colonne puoi inserire:

codice:
ListView1.ColumnHeaders.Add 1, , "Nome Tabella"
ListView1.ColumnHeaders.Add 2, , "N. Record"
codice:
            Dim li As ListItem 
            Dim RS1 As New Recordset 
            Set li = listview1.ListItems.Add(I, , Rs("table_name"))
            StrSql = "select * from " & Rs("table_name") & " "
            'questa istruzione come puoi notare serve per sapere se la tabella contiene record            
            Rs1.CursorLocation = adUseClient
            Rs1.Open StrSql, Db, adOpenKeyset, adLockOptimistic
            li.SubItems(1) = Rs1.RecordCount
Ciao