Проверка на наличие определенного значения в ComboBox с его заменой на другое

        SqlStr = "SELECT distinct gorod from Ofisse where region = '" &  ComboBox1.Text &  "' order by gorod"
        sql_zapros = New System.Data.OleDb.OleDbDataAdapter(SqlStr, podkl)
        Dim nas_p As New DataSet
        podkl.Open()
        sql_zapros.Fill(nas_p, "nas_p")
        podkl.Close()
        Dim a As Integer = 0
        ComboBox2.Items.Clear()
        While a <= nas_p.Tables(0).Rows.Count - 1
            ComboBox2.Items.Add(nas_p.Tables(0).Rows(a).Item(0).ToString)
            a += 1
        End While

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        For i As Integer = 0 To ComboBox1.Items.Count - 1
            If ComboBox1.Items(i) = "Орел" Then
                ComboBox1.Items(i) = "Хищник"
            End If
        Next
    End Sub

Dim dict As New Dictionary(Of String, String)
        dict.Add("Орёл", "Хищник")   'можно (и проще) заполнить словарь из файла
        dict.Add("Ворон", "Мудрая птица")
        dict.Add("Лиса", "Хитрая бестия")
 
        For Each key In dict.Keys
            If ComboBox1.Items.Contains(key) Then
                ComboBox1.Items(ComboBox1.Items.IndexOf(key)) = dict(key)
            End If
        Next