Prima ti avevo suggerito di usare ADOX ... con la stessa libreria con cui crei le tabelle, le puoi elencare ...

Ad esempio, supponendo di avere gia' un oggetto connessione al database (Conn)

codice:
  Dim Catalog As New ADOX.Catalog
  Set Catalog.ActiveConnection = Conn
  
  Dim Table As ADOX.Table, Column As ADOX.Column
  For Each Table In Catalog.Tables
    For Each Column In Table.Columns
      Debug.Print Table.Name & ", " & Column.Name
    Next
  Next
... studia ADOX, visto che ti serve ...