请教以下程序出错:
cmd.C
If My.Computer.Keyboard.CtrlKeyDown
cmd.CommandText = "S-elect 实收,year(日期) as 年,收入,支出 From(S-ELECT 项目名称,实收,日期 From {材料进货单} where 实收 " >0 & dd & " 科目 = '" & Vars("km") & "') As A " _
& "INNER JOIN {项目费用表} As B ON a.项目名称 = b.项目名称 "
dt = cmd.ExecuteReader()
Dim trv As WinForm.TreeView = e.form.Controls("TreeView1")
trv.BuildTree(dt,"收入|支出")
end if