Sub Temp()
'----- Code last update 6/26/2006 -----

CurrentDb.Execute "Update CombineGrade4 set StuID=0"
Dim db As DAO.Database
Dim rs As DAO.Recordset
Set db = CurrentDb()
Set rs = db.OpenRecordset("CombineGrade4")

'----- s to hold if same student -----
s = 0
a = 0
strSSN = ""
rs.MoveFirst

If rs.EOF() Then
    Exit Sub
End If

Do Until rs.EOF()
    If rs!SSN = strSSN Then
        s = 1
        a = a
        rs.Edit
        rs!StuID = a
        rs.Update
    Else
        s = 0
        a = a + 1
        rs.Edit
        rs!StuID = a
        rs.Update
    End If
    
    strSSN = rs!SSN
    rs.MoveNext
    
Loop

MsgBox "UPdate done!"

End Sub