我的Treeview只能加载二级项目，相同的代码，三级和四级不知为何加不了？

想用一段比较简单的代码为treeview加载数据，但是只能加二级项目，三级和四级加不了，
测试了一天，实在不明白哪里出了问题？请坛友过目一下：�������ش˸���

1、表的结构

2、我的代码：
Option Compare Database
Option Explicit
Private Sub Command1_Click()
Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("select * from 学生表")
On Error Resume Next '此句是用来处理下面循环里面Index语句的
ActiveXCtl0.nodes.Add , , "学生管理", "学生管理"
With rs
Do Until .EOF
        If ActiveXCtl0.nodes(.Fields(2)).Index < 0 Then
        ActiveXCtl0.nodes.Add "学生管理", 4, .Fields(2), .Fields(2)
        End If
        If ActiveXCtl0.nodes(.Fields(3)).Index < 0 Then
        ActiveXCtl0.nodes.Add .Fields(2), 4, .Fields(3), .Fields(3)
        End If
        ActiveXCtl0.nodes.Add .Fields(3), 4, .Fields(1), .Fields(1)
.MoveNext
Loop
End With
End Sub
3、下面是运行结果：（但是年级下面没有班级和姓名）