主题：下列代码出错

Dim dr As DataRow = DataTables("sys_系统表").DataRows(0)

Dim qs As Integer = dr("每月第一天")

Dim cmd As New SQLCommand

Dim dt11 As DataTable

cmd.ConnectionName = "坯布输入"

cmd.CommandText ="Select iif(日>=" & qs & ",0,1) As 顺序日, iif(月>=10,1,0) As 顺序月, 年,月,日 form {XXX}

dt11 = cmd.ExecuteReader()

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")

trv.BuildTree(dt11, "年|月|日", "", "年,顺序月,月,顺序日,日")

trv.Nodes.Insert("显示所有行",0)