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