For...Next

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