主题：探讨:组合框能否加入数据字典?

Dim dmp As New TableDataMap
dmp.DataTable = "商品信息" '指定数据来源表
dmp.ValueCol = "供应商" '指定取值列
dmp.DisplayCol = "供应商" '指定显示列
'指定下拉列表时显示哪些列的数据
dmp.ListCols = "供应商,商品代码,商品名称"
dmp.Sort = "供应商" '指定排序方式
e.Form.Controls("ComboBox5").DataMap = dmp.CreateDataMap() '生成并设置DataMap

这样报错,呵呵,看看高手有无好办法