treeview载入代码几次出现这样的问题，请老师指点迷津

点击下载此附件

代码：

Option Compare Database
Private Sub Form_Load()
    Call TreeviewLoad                      '加载Treeview
End Sub


Private Sub TreeviewLoad()
   
    Set TreeView.ImageList = ImageList.Object
    
    Me.TreeView.Nodes.Clear
    
    Dim CONN As ADODB.Connection
    Dim rs As New ADODB.Recordset
    Dim strSql As String
    Dim nodIndex As Node
    
    Set nodIndex = TreeView.Nodes.Add(, , "根", "在校生", "根", "根")
    'nodIndex.Sorted = True
    nodIndex.Expanded = True
    
    strSql = "SELECT DISTINCT 在校生.舞种 From 在校生"
    Set CONN = CurrentProject.Connection
    CONN.CursorLocation = adUseClient
    
    rs.Open strSql, CONN, adOpenKeyset, adLockOptimistic, adCmdTableDirect
    Do Until rs.EOF = True
        Set nodIndex = TreeView.Nodes.Add("根", tvwChild, "干" & rs.Fields("舞种"), rs.Fields("舞种"), "干关", "干开")
        rs.MoveNext
    Loop
    rs.Close
    
    strSql = "SELECT DISTINCT 在校生.舞种,在校生.班号 From 在校生"
    rs.Open strSql, CurrentProject.Connection, adOpenKeyset, adLockOptimistic, adCmdTableDirect
    Do Until rs.EOF = True
        Set nodIndex = TreeView.Nodes.Add("干" & rs.Fields("舞种"), tvwChild, "枝" & rs.Fields("舞种") & rs.Fields("班号"), rs.Fields("班号"), "叶关", "叶开")
        rs.MoveNext
    Loop
    rs.Close
    Set rs = Nothing

End Sub