Hi, Ingrid!
Test it:

Code:
Dim x&, i&

Set dbtest = OpenDatabase("d:\db1.mdb", True)
 
With dbtest.TableDefs("Table1")
    x = .Fields.Count - 1
    For i = 0 To x
        Debug.Print .Fields(i).Name
    Next
End With

dbtest.Close
Best regards.

------------------
smalig
[email protected]
smalig.tripod.com