Wildcard Search (Text Update )

 Private Sub CboMachineName_TextUpdate(sender As Object, e As System.EventArgs) Handles CboMachineName.TextUpdate
        CboMachineName.Items.Clear()

        Conn = New SqlConnection(ConnectionStr)
        Conn.Open()
        Sql = ""

        CboMachineName.Select(CboMachineName.Text.Length, 0)

        Sql = "Select Distinct MachName from ControlPlanFoundryMachine where MachName like '%"         & (CboMachineName.Text) & "%' "
       
        Cmd = New SqlCommand(Sql, Conn)
        DR = Cmd.ExecuteReader
       
        If DR.HasRows = False Then
            CboMachineName.Focus()
            CboMachineName.Select(CboMachineName.Text.Length, 0)
            'MsgBox("No Items")
            Exit Sub
        Else
            While DR.Read()
                CboMachineName.Items.Add(DR.Item(0))
            End While
        End If

        DR.Close()
    End Sub