For...Next
For
i = 1
To
rst.Fields.Count - 1 Debug.
Print
"Field "
& i &
" is "
& rst.Fields(i).Name
Next
i