ไม่ทราบว่ามีวิธี Search จาก Combobox โดยที่เราพิมพ์อ่าครับ ในแสดงใน datagrid มันจะพอมีวิธีมั้ยครับ

 Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        SerachGrid("select * from  AreaMaster where AreaID like '%" & ComboBox1.Text & "%'")
        Dim use As String
        Dim passs As String
        use = Class1.uss
        passs = Class1.pass

        ' SerachGrid("select * from  AreaMaster where Area  'txtarea.Text' ")

        Dim connectionString As String = "Server=PONGWICS2014-PC;UID=" & use & ";PASSWORD=" & passs & ";Database=Top_CustomerEntry;Connect Timeout=200; pooling='true'; Max Pool Size=200"
        Dim ds As New DataSet


        Dim connection As New SqlConnection(connectionString)



        'ComboBox1.Items.Clear()
        Dim sql As String = "SELECT AreaID,Area,Team,ZuelligArea FROM AreaMaster  Where  AreaID = '" & ComboBox1.Text & "'"
        ' Me.txtarea.Text = Me.ComboBox1.SelectedItem("Area")
        'Me.txtteam.Text = Me.ComboBox1.SelectedItem("Team")
        'Me.txtzuellig.Text = Me.ComboBox1.SelectedItem("ZuelligArea")
        'Dim strID As String = Me.DataGridView1(0, Me.DataGridView1.CurrentCell.RowIndex).Value.ToString()


        'Dim myConnection As SqlConnection

        'myConnection = New SqlCeConnection("Data Source =" + (System.IO.Path.GetDirectoryName( System.Reflection.Assembly.GetExecutingAssembly().GetName().CodeBase ) + "\Database1.sdf;"))



        ' myConnection.Open()

        ' Dim myCommand As SqlCommand = myConnection.CreateCommand()
        connection.Open()
        Dim i As Integer
        'sTable = sDs.Tables("Area")
        ' Dim ds As DataSet = New DataSet
        'sAdapter.Fill(ds, "AreaMaster")





        'sTable = sDs.Tables("Area")

        ComboBox1.ValueMember = "AreaID"
        ComboBox1.DisplayMember = "AreaID"
        ComboBox1.Text = ComboBox1.SelectedValue

        'If sDs.Tables("AreaID").Rows.Count <> 0 Then


        'If IsDBNull(ds.Tables("AreaMaster").Rows(i)("txtteam.Text")) Then



        'Name = "null"

        'Else

        'Name = ds.Tables("AreaMaster").Rows(i)("txtteam.Text")

        'End If


        ComboBox1.ValueMember = "Area"
        ComboBox1.DisplayMember = "AreaID"
        txtarea.Text = ComboBox1.SelectedValue




        ComboBox1.ValueMember = "Team"
        ComboBox1.DisplayMember = "AreaID"
        txtteam.Text = ComboBox1.SelectedValue



        ComboBox1.ValueMember = "ZuelligArea"
        ComboBox1.DisplayMember = "AreaID"
        txtzuellig.Text = ComboBox1.SelectedValue


        'End If
        'sDs = New DataSet()

        'sAdapter.Fill(sDs, "AreaID")

        'sTable = sDs.Tables("Area")

        'txtarea.Text = ComboBox1.SelectedValue.ToString()
        'txtteam.Text = ComboBox1.SelectedValue.ToString()
        'txtzuellig.Text = ComboBox1.SelectedValue.ToString()
        'sCommand = New SqlCommand(sql, connection)
        'sb = New StringBuilder
        sAdapter = New SqlDataAdapter(sCommand)

        'sBuilder = New SqlCommandBuilder(sAdapter)

        'sDs = New DataSet()
        SerachGrid("select * from  AreaMaster where AreaID like '%" & ComboBox1.Text & "%'")
        ' ComboBox1.SelectedIndex = -1
        Dim dsd As DataSet = Nothing
        Return
        connection.Close()
        For i = 0 To sAdapter.Fill(ds, "AreaID") - 1

            'ComboBox1.Text.Add(ds.Tables("AreaID").Rows(i)("AreaMaster").ToString)

        Next
        'ComboBox1.Refresh()


    End Sub

 SerachGrid("select * from  AreaMaster where AreaID like '%" & ComboBox1.Text & "%'")