关于do..loop循环中的on Error问题

Question

Do Until rs.EOF
        On Error GoTo dberror
        x.ID = Trim(rs.Fields("BOOKING_ID"))
        x.Name = Trim(rs.Fields("BOOKING_Name"))
        x.PTime = Trim(rs.Fields("BOOKING_PTime"))
        x.PPF = Trim(rs.Fields("BOOKING_PPF")）
        x.WTime = Trim(rs.Fields("BOOKING_WTime"))
        x.WPF = Trim(rs.Fields("BOOKING_WPF"))
        x.GTime = Trim(rs.Fields("BOOKING_GTime"))
        x.Addess = Trim(rs.Fields("BOOKING_Addess"))
        x.Phone = Trim(rs.Fields("BOOKING_Phone"))
        x.Tag = Trim(rs.Fields("BOOKING_Tag"))
        AddInfo View, x' 将自定义类型变量x显示到ListView的函数
dberror:
        rs.MoveNext
    Loop
rs是查询记录，其中几个Time字段可能会出现Null的情况，但是变量中的date类型不能赋Null，所以要条过这条记录
第一次出现的时候能顺利跳转到dberror后面，第2次开始接不进行跳转了，问下是怎么回事，怎么解决

Answer 1

''''
dberror:
        rs.MoveNext
        Err.Clear
    Loop