Visual Basic - Cómo obtener nombres de Tablas vía código

Cómo puedo vía codigo VB rescatar los nombres de todas las tablas de una Base de Datos ?. La idea es cargar todas los nombres de tablas en un ComboList y luego seleccionar una tabla específica para mostrarla en una Grilla MsFlexXGrid

Compañero yo que sepa, eso se hace a travez de DAO, y se hace de la siguiente manera, lo de seleccionar el combo es trabajo tuyo:

Dim TDF As TableDef
Dim DB As Database
Set DB = OpenDatabase("Nombre de base de datos")

Combo1.Clear
For Each TDF In DB.TableDefs
If TDF.Attributes = 0 Then 'Esto es porque sino le saca tambien las tablas del sistema
Combo1.AddItem TDF.Name
End If
Next TDF

Eternamente agradecido !!