主题：列表项目

我想把 产品信息表 的 产品型号 作为菜单的组合框NO31的列表项目.

我用以下代码在菜单事件里调试出错，不知道如何解决，求助

谢谢
Dim no31 As RibbonMenu.TextBox = RibbonTabs("产品开发").Groups("产品查询").Items("no31")
Dim cmd1 As New SQLCommand
Dim dt1 As DataTable
cmd1.C
cmd1.CommandText = "SELECT DISTINCT 产品型号 From {产品信息表}"
dt1 = cmd1.ExecuteReader
no31.ComboList = dt1.GetComboListString("产品型号")