IFeatureCursor.UpdateFeature不能更新MDB的问题

       上周有个同事要我帮忙把土地利用图斑的村名写到BLOCK_CODE字段中，因为只能根据空间关系来做，所以最好写程序。刚开始以为这样的小问题，半个小时不到应该就能解决，没想到折腾了一个下午也没有完全搞定。每次执行到UpdateFeature就出错，说数据库被锁定或者只读。实在没有办法了上ESRI的User Forums上查了查，通常别人应该也会碰到和我类似的问题，结果的确找到不少，不过感觉不是正解。他们说要用IFeature.Store代替UpdateFeature，但是UpdateFeature可以批量提交性能会好些，而且也没有找出导致不能更新的根本原因。因为我发现UpdateFeature方法不是所有情况下都不能用，比如我写了一个简单的函数，所有的Feature赋上同样的值是可以的，所以我坚信肯定是别的原因导致这个错误。
       因为村相对于图斑要少得多，一个区县村通常只有近百个，而图斑达数万甚至几十万。如果用区县来选择图斑可以减少查询的次数，速度应该会快一点。所以我采用一个只读的Search Cursor内嵌套可更新的Update Cursor，我发现论坛上的那些人也是这样的模式，有些人说是Update Cursor锁定了表，对象没有释放，但是即便你用完后用Set pCursor = Nothing也于事无补。周末我有空就在思考这个问题，感觉应该把Update Cursor放在外面可能能够解决问题，结果真如我想象的那样，UpdateFeature工作得很好！
    关键代码如下：

    featureCount = 0
    Set pLCursor = pLandUseFC.Update(Nothing, False)
    Set pLFeature = pLCursor.NextFeature
    Do While Not pLFeature Is Nothing
       
        If IsNull(pLFeature.Value(fldLBlock)) Then
            blockCode = ""
        Else
            blockCode = pLFeature.Value(fldLBlock)
        End If
        Set pSpatialFilter.Geometry = pLFeature.Shape
        Set pVCursor = pVillageFC.Search(pSpatialFilter, False)
       
        Set pVFeature = pVCursor.NextFeature
        Do While Not pVFeature Is Nothing
            If Not IsNull(pVFeature.Value(fldVBlock)) Then
                If blockCode = "" Then
                    blockCode = pVFeature.Value(fldVBlock)
                Else
                    blockCode = blockCode & "," & pVFeature.Value(fldVBlock)
                End If
            End If
           
            Set pVFeature = pVCursor.NextFeature
        Loop
        
        pLFeature.Value(fldLBlock) = blockCode
        pLCursor.UpdateFeature pLFeature
        featureCount = featureCount + 1
        If featureCount = 1000 Then
            pLCursor.flush
            featureCount = 0
        End If
        Set pLFeature = pLCursor.NextFeature
    Loop
    pLCursor.flush