如何自动计算间隔期？

运行下面模块即可：

Sub intInterval()
    Dim rst As ADODB.Recordset
    Set rst = New ADODB.Recordset
    Dim i As Integer
    rst.ActiveConnection = CurrentProject.Connection
    rst.CursorType = adOpenKeyset

    rst.LockType = adLockOptimistic
    rst.Open "select * from 表1"
    rst.MoveFirst
    Do Until rst.EOF
        i = i + 1
        If rst("数") = 100 Then
            i = 0
        End If
        rst("间隔") = i
        rst.MoveNext
    Loop
    rst.Close
    Set rst = Nothing

End Sub