请教煮江老师！

Private Sub Command1_Click()
Dim rs As New ADODB.Recordset
Dim i As Long
rs.Open "表1", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
For i = 1 To rs.RecordCount
    If rs("序号").Value <> rs.AbsolutePosition Then
        Call P(rs("序号").Value)
        Exit For
    End If
    rs.MoveNext
Next
rs.Close
Set rs = Nothing
End Sub

Sub P(MyID As Long)
Dim rs As New ADODB.Recordset
Dim i As Long
rs.Open "表1", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
rs.Find "序号=" & MyID
For i = MyID To rs.RecordCount + 1
    rs("序号").Value = rs("序号").Value - 1
    rs("页码").Value = rs("页码").Value - 1
    rs.Update
    rs.MoveNext
Next
rs.Close
Set rs = Nothing
End Sub