how to add row numbers (record counting) to access query field

how to add row numbers field in access database query
the code :

'copy this code as it is
'#################################
Private lngRowNumber As Long
Private colPrimaryKeys As VBA.Collection

Public Function ResetRowNumber() As Boolean
Set colPrimaryKeys = New VBA.Collection
lngRowNumber = 0
ResetRowNumber = True
End Function

Public Function RowNumber(UniqueKeyVariant As Variant) As Long
Dim lngTemp As Long

On Error Resume Next
lngTemp = colPrimaryKeys(CStr(UniqueKeyVariant))
If Err.Number Then
lngRowNumber = lngRowNumber + 1
colPrimaryKeys.Add lngRowNumber, CStr(UniqueKeyVariant)
lngTemp = lngRowNumber
End If

RowNumber = lngTemp
End Function
'################################
'ps: this code is not mine but after a lot research this worked
'so thanks for the original owner of the code

Edit 09-Oct-2017:
it is essential to add ORDER BY SomeColumn; to the SQL statement so that the rows are in order correctly