主题：列表项目

Dim cmd1 As New SQLCommand
Dim dt1 As DataTable
cmd1.C
cmd1.CommandText = "SELECT DISTINCT 产品型号 From {产品信息表}"
dt1 = cmd1.ExecuteReader

Dim ss() As String =dt1.GetComboListString("产品型号").split("|")
With RibbonTabs("产品开发")("产品查询")("no31")
    .Items.Clear 

    For Each s As String In ss
        Dim b As New RibbonMenu.Button(s)
        b.Text = s
        .Items.Add(b)
    Next
End With

在textchanged事件中设置代码吧。