codice:
dim cn as adodb.connection
dim rs as adodb.recordset

'qua apri la connessione come necessiti

set rs = cn.openschema
poi dentro l'oggetto rs hai tutte le info riguardanti il catalogo