请教错误处理

Question

Dim i As Integer
    For i = 1 To rs.RecordCount
        On Error GoTo ErrHandler
        Set systemNode = tvw.Nodes.Add(……, tvwChild, ……, ……）
        ……
ErrHandler:
        rs.MoveNext
    Next i为什么有时候在Add出现错误的时候（前几次出错）跳转到ErrHandler去处理了，有时候直接不能执行下去报错？？？

Answer 1

ErrHandler:         err.clear
        rs.MoveNext
    Next i

Answer 2

Dim i As Integer
    On Error Resume Next
    Do Until rs.EOF        Set systemNode = tvw.Nodes.Add(……, tvwChild, ……, ……）
        ……
        rs.MoveNext
    Loop

Answer 3

On Error GoTo ErrHandler
    Dim i As Integer
    For i = 1 To rs.RecordCount
        Set systemNode = tvw.Nodes.Add(……, tvwChild, ……, ……）
        ……
        rs.MoveNext
    Next i
    exit sub
ErrHandler:
    ...

Answer 4

to:of123() 
我的意思是让它一旦添加不上节点就跳到rs.MoveNext去添加下一个节点，怎么办？
to:Leftie(左手,为人民币服务) 
那样直接退出不符合我的愿意，有没有办法象VC里的continue一样，直接做下一个循环？？？