主题：[求助]帮看下哪个地方出了问题？

Dim xsxm As WinForm.CheckedComboBox = e.Form.Controls("显示项目")

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

Dim s As String

Dim t As Table

Dim filt As String

Dim flt As String

Dim nlflt As String

Dim dr As DataRow

Dim dt As DataTable

'Select cxlb.Value

'Case "人员信息"

'Select cxny.Value

' Case "基层法律服务工作者"

' Forms("法律服务人员查询").Open

s = e.Form.Controls("显示项目").Text

If s = "" OrElse s = "选择显示项目" Then

    Return

End If

't = Tables("基层法律服务人员信息表")

If User.Group = "遵义市司法局" Then

    filt = "1 = 1"

Else

    filt = "主管司法局 = '" & User.Group & "'"

End If

Dim cmd As New SQLCommand

cmd.C

cmd.CommandText = "Select [_Identify],身份证号码,主管司法局,法律服务所,性别,姓名,学历学位,学历学位序号,序号,IIF(年龄 < 20 ,'小于20',IIF(年龄 Between 20 And 25,'20-25',IIF(年龄 Between 26 And 30, '26-30',IIF(年龄 Between 31 And 35, '31-35'," & _

"IIF(年龄 Between 36 And 40,'36-40',IIF(年龄 Between 41 And 45,'41-45',IIF(年龄 Between 46 And 50,'46-50',IIF(年龄 between 51 And 55,'51-55',IIF(年龄 between 56 And 60,'56-60',IIF( 年龄 between 61 And 65,'61-65',IIF(年龄 between 66 And 70,'66-70','大于70'))))))))))) As 年龄" & _

" From {基层法律服务人员信息表} Where " & filt