RE:Campos en una Tabla Access
Si estás utilizando ADO, puedes utilizar ADOX u OpenSchema para enumerar las tablas y las columnas, si estás utilizando DAO las enumeras a través del objeto Database.
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"))