myconn= New OleDbConnection(ConfigurationSettings.AppSettings("DataServer"))
myconn.open()
dim expand=request.querystring("expanded")
dim sql="select Departid from t_dict_depart"
Dim mycomm As New oledbcommand(sql,myconn)
Dim rs As oledbdatareader = mycomm.executereader()