主题：动态加载--目录树--出错提示

窗口中一个目录树(TreeView),窗口的AfterLod事件代码设为

Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.CommandText = "SELECT DISTINCT 合同号 From {定单}"
dt = cmd.ExecuteReader()
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildDataTree(dt, "","合同号")
trv.Nodes.Insert("加载所有数据",0)

打开窗口后，提示

此主题相关图片如下：1.jpg

点击确定后，出现以下提示

此主题相关图片如下：2.jpg

然后窗口打开，目录树显示空白，

是哪里出了问题啊？

要设定数据库名

Dim cmd As New SQLCommand
Dim dt As DataTable

cmd.C
cmd.CommandText = "SELECT DISTINCT 合同号 From {定单}"
dt = cmd.ExecuteReader()
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildDataTree(dt, "","合同号")
trv.Nodes.Insert("加载所有数据",0)

cmd.ConnectionName = "指定的数据库名"