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

'apri la connessione e poi

set rs = cn.openschema
dentro rs hai tutte le info sul database che ti servono

@ mikkuz

rs.fields(i).name non caption