Here's a routine that may help, but I have to ask ---Why??
Code:
'---------------------------------------------------------------------------------------
' Procedure : ColumnNamesFromNumber
' Author : mellon
' Date : 23-Aug-2017
' Purpose : Print table column name and table column index/position
'---------------------------------------------------------------------------------------
'
Sub ColumnNamesFromNumber()
Dim fld As DAO.Field
Dim rst As DAO.Recordset
Dim i As Integer
10 On Error GoTo ColumnNamesFromNumber_Error
20 Set rst = CurrentDb.OpenRecordset("Your tablename goes here")
30 For Each fld In rst.fields
40 Debug.Print "field (" & i & ") " & fld.name
50 i = i + 1
60 Next
ColumnNamesFromNumber_Exit:
70 Exit Sub
ColumnNamesFromNumber_Error:
80 MsgBox "Error " & err.number & " in line " & Erl & " (" & err.Description & ") in procedure ColumnNamesFromNumber of Module AWF_Related"
90 Resume ColumnNamesFromNumber_Exit
End Sub