Input Method: Repeated encoding analysis ~~~

The basic work has been completed... I have to do repeat code analysis... because of the most annoying and inefficient things in my life ....

Dim BM As String, OldBM As String
Dim CI As String, OldCI As String
Dim JS As Long
Dim n As Integer

Form5.Show
Form5.Label1. Caption = "the encoding is being analyzed ..."

Set rs = ADO. CreateRecordset ("SELECT * FROM YS_PY ")

While rs. EOF = False

BM = rs. Fields (0)
CI = rs. Fields (1)

If BM = OldBM Then

If CI = OldCI Then
N = n + 1
MsgBox "duplicate entries:" & CI & "-" & BM
End If

End If

OldBM = BM
Oldci = Ci

JS = JS + 1: doevents
Form5.progressbar1. value = (JS/Rs. recordcount) * 100

Rs. movenext

Wend

Form5.hide

If n = 0 then
Msgbox "No repeated entries! "
Else
Msgbox "found" & N & "duplicate entries! "
End if

Fortunately, there are no repeated codes in five strokes, and there are 3 in pinyin... Even if there are only three entries, it must be removed... Because the extra code is as annoying as the flower oil...