vsflexgrid例子.帮忙解释一下,该如何解决

vsflexgrid例子.帮忙解释一下
Private   Sub   vsflexgrid1_AfterEdit(ByVal   Row   As   Long,   ByVal   Col   As   Long)
    rs.MoveFirst         '//rs为记录集
    rs.Move   vsflexgrid1.Row   -   1
    rs.Edit
    If   vsflexgrid1.text   =   " "   Then
            rs.Fields(vsflexgrid1.Col   -   1)   =   Null
    Else
          rs.Fields(vsflexgrid1.Col   -   1)   =   vsflexgrid1.text
    End   If
    rs.Update
end   sub

菜菜鸟.帮我每句都解释下吧,谢谢

[解决办法]
Private Sub vsflexgrid1_AfterEdit(ByVal Row As Long, ByVal Col As Long)
rs.MoveFirst '//将记录集指针移动到第一条
rs.Move vsflexgrid1.Row - 1 ‘再将指针移向用户选中行
rs.Edit ’记录集处理可编辑状态
If vsflexgrid1.text = " " Then ‘修改记录集
rs.Fields(vsflexgrid1.Col - 1) = Null
Else
rs.Fields(vsflexgrid1.Col - 1) = vsflexgrid1.text
End If
rs.Update ’更新
end sub
[解决办法]
那是因为第一列应该有别的数据，并不是数据库的字段，
所以col=0不能这样用，会出错，需要加上判断条件