Sub ListFields()
Dim dbs As Database, tdf As TableDef, fld As Field
' Return Database object variable pointing to current database.
Set dbs = CurrentDb
' Return TableDef object variable pointing to the table.
Set tdf = dbs.TableDefs![b]MyTABLE[/b]
' Enumerate fields in the table.
For Each fld In tdf.Fields
Debug.Print fld.Name & " " & fld.Size & " " & fld.Type
Next fld
End Sub