Private Sub Command0_Click()
Dim StrName As String
Dim I As Integer
Dim J As Integer
Dim Rs As New ADODB.Recordset
Dim Conn As New ADODB.Connection
Set Conn = CurrentProject.Connection
Rs.Open "select * from 表1 order by 名称", Conn, adOpenDynamic, adLockOptimistic
I = 1
Do While Not Rs.EOF
If StrName <> Rs.Fields("名称") Then I = I + 1
J = I / 3
Rs.Fields("id") = J
StrName = Rs.Fields("名称")
Rs.MoveNext
Loop
Set Rs = Nothing
Set Conn = Nothing
End Sub