Using DAO, something like:
Dim tdfCurr As DAO.TableDef
Dim fldCurr As DAO.Field
Set tdfCurr = CurrentDb().TablesDefs("MyTable")
For Each fldCurr In tdfCurr.Fields
Debug.Print fldCurr.Name
Next fldCurr
You can also use ADOX, but I'm afraid I don't have a sample handy.