Increment a column when column value changes

[cwnyny1975]

I am new to vba access and I am trying to create a field that will increment when the another field value changes. Any assistance will be welcomed. This is what I have so far.

Dim i As Integer
Dim n As Integer
Dim db As Database
Dim rs As Recordset
Dim rsOne As String, rsTwo As String
 
 
Set db = CurrentDb
Set rs = db.OpenRecordset("qrySortData", dbOpenDynaset)
 
 
rs.MoveFirst
 
n = 1
Do While (Not rs.EOF)
 
    rsOne = rs.Fields("Folder")
    rs.MoveNext
    rsTwo = rs.Fields("Folder")
    If rsOne = rsTwo Then
 
 
        rs.Edit
        rs.Fields!Counter = n
        rs.Update
        rs.MoveNext
        rs.Edit
        rs.Fields!Counter = n
        rs.Edit
 
        rs.Update
        rs.MoveNext
    Else
 
        i = n + 1
        rs.Edit
        rs.Fields!Counter = i
        rs.Update
        rs.MoveNext
        rs.Edit
        rs.Fields!Counter = i
        rs.Update
        rs.MoveNext
 
 
 
    End If
Loop
 
 
 
rs.Close
Set rs = Nothing
db.Close
End Sub