主题：为什么这么简的一段代码执行不了？？？

Dim sts() As String = e.Node.FullPath.Split("\")

Dim filt As String = "select * f rom {员工资料} "

Select Case e.Node.Level

    Case e.Node.Level = 0

        If e.Node.Text <> "显示所有员工" Then

            filt = filt & " where 部门 = '" & sts(0) & "'"

            MessageBox.Show(filt)

        End If

End Select