求教大神 vb.net TreeView.nodes.add 无法再tree上显示出项目

这段代码也是从论坛上学习来的

直接上代码，代码有的地方多余，请忽略。程序可以正常走完，DB里的内容也能读出来，就是代码结束的时候，tree上还是空的

    Public Ole_Con As OleDbConnection                     'DB文件链接声明
    Public Ole_Com1, Ole_Com2 As OleDbCommand              '对TreeView访问DB时，需访问根节点和子节点
    Public Ole_D_read1, Ole_D_read2 As OleDbDataReader
    Public sql As String                             'table文件名字符串
    Public Ole_D_Adap As OleDbDataAdapter                    '定义一个数据库借口 table文件引用
    Public Da_Set As DataSet                             '定义一个数据集，与数据库的表相对应
    Public CnStr As String = Para_DB_Cnstr()              'PARA DB文件位置
    Public SysStr As String = SYS_DB_Cnstr()            '系统 DB文件位置

    Public Function SYS_DB_Cnstr() As String
        Return "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\SYS