Visual Basic - Listar Campos

Buenas tardes

Tengo la siguiente duda,

De que forma es posible listar los campos de una determinada tabla en
Visual Basic

Agradecere cualquier idea

CRFO

Con ADOX, sería:

Dim objCatalog As Catalog, objTable As Table, objColumn As Column

Set objCatalog = New Catalog
Set objCatalog.ActiveConnection = TuObjetoConnectionADO

Set objTable = objCatalog.Tables.Item("MiTabla")

For Each objColumn In objTable.Columns
Debug.Print objColumn.Name
Next

Con OpenSchema de ADO:

Set objRecordset = TuObjetoConnection.OpenSchema(adSchemaColumns,Array(Empty,Empty,"MiTabla"))

Genial :D

Muchas Gracias

Crfo