还是填充序号

循环体内加一个判断

    Do Until rst.EOF     '表是当记录代码循环应用计算,直到最后一条记录为止
        If rst!标记 = True Then
        rst!序号 = Y + 1
        Y = rst!序号
        rst.Update
        End If
        rst.MoveNext
        '并且把记录指针跳转到下一条记录,千万记住这句, _
         否则程序会一直在上面那条记录反复计算,真到你的ACCESS程序死掉, _
         或者你系统由于内存占光而完完,切记切记！！！！！！！！！！！！

    Loop       '重新回到上面那句:  Do Until rs.EOF = True