在VB.net中如何将下拉列表中的内容传到文本框中

我在“选择列名”的下拉列表中可以显示表中所有的列名，我想达到这样一个目的：我在“选择列名”中选择一个列，然后在“筛选相关”的文本框中输入一个列的具体值，利用模糊查询，将查询的结果显示在上面。代码如下：
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If ComboBox2.Text = "" Then
MessageBox.Show("请选择要进行筛选的列名!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Warning)
ComboBox2.Focus()
Exit Sub
End If

Dim str As String
str = ""
If TextBox6.Text.Trim <> "" Then str = str & " and like '%" & TextBox6.Text & "%'"
If str <> "" Then
str = " where " & str.Substring(5)
End If
Try
ds.Clear()
da = New SqlClient.SqlDataAdapter("select * from 入库表 " & str, con)

da.Fill(ds, "入库表")