主题：怎样根据当前用户生成加载树

参考：http://www.foxtable.com/webhelp/scr/2057.htm

Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.ConnectionName = "region"
cmd.CommandText = "SELECT DISTINCT 项目名称,县,乡镇,村屯,屯,组 From {S记录其它} where 用户='" & user.name & "'"
dt = cmd.ExecuteReader()

那就改为自己的数据源啊，这么明显的错误要学会自己分析

数据源名称！不是表名！

另外sql的where条件改为符合自己要求的条件，看懂代码，不要只会抄

看9楼