方法和详细的操作步骤如下：
成都创新互联坚持“要么做到，要么别承诺”的工作理念，服务领域包括：做网站、成都网站设计、企业官网、英文网站、手机端网站、网站推广等服务，满足客户于互联网时代的广昌网站设计、移动媒体设计的需求，帮助企业找到有效的互联网解决方案。努力成为您成熟可靠的网络建设合作伙伴！
1、第一步，打开VB软件并在表单上添加一个列表框，见下图，转到下面的步骤。
2、第二步，执行完上面的操作之后，单击列表框，然后在属性窗口中，设置列表框的已知属性和内容，见下图，转到下面的步骤。
3、第三步，执行完上面的操作之后，在表单上，添加两个命令按钮，见下图，转到下面的步骤。
4、第四步，执行完上面的操作之后，分别设置两个命令按钮的属性，见下图，转到下面的步骤。
5、第五步，执行完上面的操作之后，双击“清除”命令按钮以编辑其代码，见下图，转到下面的步骤。
6、第六步，执行完上面的操作之后，运行程序并验证结果。
在列表框中选择“语言”，然后单击“复制”命令按钮，然后将“语言”项复制到列表框中，见下图。这样，就解决了这个问题了。
Text1.Text = List1.List(n) n表示列表框中的第n项. 如果要读完所有的, 一个循环就搞定了.
Dim i As Integer
Dim max As Integer = 0
For i = 0 To ListBox1.Items.Count - 1
If Asc(ListBox1.Items(i)) Asc(ListBox1.Items(max)) Then
max = i
End If
Next
Label1.Text = ListBox1.Items(max) ‘将结果显示在一个标签上。
在下拉菜单的SelectionChangeCommitted事件中调用Button2_Click
Private Sub 选择列名ComboBox_SelectionChangeCommitted(ByVal sender As Object, ByVal e As System.EventArgs) Handles 病情ComboBox.SelectionChangeCommitted
Button2_Click(sender, e)
End Sub
我不是很懂你的意思，如果你要用combox里的数据那就在and like之间加个
选择列名ComboBox.text
不就得了
Then str = str " and " 选择列名ComboBox.text " like '%" TextBox6.Text
