تعديل في كود حلقة تكرارية

المطلوب حلقة مشابهه للحلقة المرفقه ولكن تقوم بترقيم كل سجل متشابهه ثم بالانتقال للسجل التالي يبدء الترقيم من جديد على العمود

   Dim x

Dim rst As ADODB.Recordset

Set rst = New ADODB.Recordset
Dim sqlstr As String
sqlstr = "SELECT doc.doc_ID, doc.mov_no, doc.mov FROM doc ORDER BY doc.doc_ID, doc.mov_no;"


rst.Open sqlstr, CurrentProject.Connection, adOpenStatic, adLockOptimistic

x = 1
rst.MoveFirst
MsgBox "ÚÏÏ ÇáÓÌáÇÊ ÇáãæÙÝíä" & rst.RecordCount, _
    vbInformation + vbMsgBoxRight + vbOKOnly, _
    "ÈÑäÇãÌ"

Do While Not rst.EOF
   rst![mov] = x
   x = x + 1
   rst.Update
   rst.MoveNext
Loop
MsgBox "Êã ÊæÒíÚ ÇáÇÑÞÇã ", _
    vbInformation + vbMsgBoxRight + vbOKOnly, _
    "ÈÑäÇãÌ"
rst.Close
Me.Refresh

End Sub

bb.rar