主题：临时表做字典的问题

cmd.CommandText = "Select * From{组别档案}"

dt= cmd.ExecuteReader(True)

Dim dmp As New TableDataMap

dmp.ValueCol = "组别名称"

dmp.DisplayCol = "组别名称"

'指定下拉列表时显示哪些列的数据

dmp.ListCols = "组别代号,组别名称"

dmp.Sort = "序号"

Tables("部门档案").Cols("四级部门").DataMap = dmp.CreateDataMap() 

  红字部份为什么不可以这样用,有无好的解决办法?