Hola espero que te sirva
Código:
Dim Cn as New ADODB.COnnection
Dim Ct as New ADODX.Catalog
Dim Tb as New ADODX.Table
Cn.Open ...
Set Ct.ActiveConnection = Cn
For each Tb in Ct.Tables
List1.additem Tb.Name
next Tb
* Para que funcione hay que añadir la referencia Micr. ADO Ext 2.5 for DLL and Secutity.
--Saludos--