Acces: For Loop to number 123 in column

Hi. I know this is a simple question.
But when I try it out, my database keeps not responding and I have been reopening it a couple of times.
Would like to just check if my code is okay

I'm just using a For loop to number 1,2,3 in the WeekNo Column.
The 123 will keep on repeating.

Function seq()

 Dim i As Integer
 Dim db As DAO.Database
 Set db = CurrentDb()
 Set rs = db.OpenRecordset("NewTypes", dbOpenDynaset)
 
While rs.EOF = False

    rs.Edit
    For i = 1 To 3
 
        rs("WeekNo") = i
       
     Next i
Wend
rs.Close
End Function


Thank you!