调试一下
Dim cmd As new SQLCommand
messagebox.show("1")
messagebox.show(e.Cookies("userjs"))
Dim js As String = e.Cookies("userjs")
messagebox.show(js)
Dim dw As String
cmd.C '记得设置数据源名称?
cmd.CommandText ="Select DISTINCT 单位全称 from {学校信息} "
messagebox.show("3")
Dim dt As DataTable = cmd.ExecuteReader
messagebox.show("问题1")