是否字段 赋值为true的问题

批量加入实现了，但是有一个赋值的问题 ， 红字的部分我怀疑是不是有问题。把是否字段的值置为true.但是只有第一行加入的值置为了true,其他的都失效了。

  Set rst1 = CurrentDb.OpenRecordset("tblYhxx", dbOpenDynaset)
        Set rst2 = CurrentDb.OpenRecordset("tblYxxxfp", dbOpenDynaset)
        For I = 0 To List0.ListCount
            If List0.Selected(I) = True Then
                rst1.Edit
                rst1("sffp") = True
                rst1.Update
 

                rst2.AddNew
                rst2("fpId") = acchelp_autoid("F", 10, "tblYxxxfp", "fpId")
                rst2("fpsj") = Me.fpsj
                rst2("zycp") = Me.cpdm
                '营销分配表中主营产品zycp等于产品代码
                rst2("yggh") = Me.yggh
                rst2("ygxm") = Me.ygxm
                rst2("yhbh") = List0.Column(0, I)
                rst2.Update
                List0.Selected(I) = False
            End If
        Next
    'End If
    DoCmd.Close
    MsgBox "保存成功!", vbInformation, "提示"