Private WithEvents bs As BindingSource

        bs = New BindingSource(ds, "Tab")
 
        With Me.ComboBox1
            .DataSource = bs
            .DisplayMember = "Name"
            .ValueMember = "Name"
        End With

        Dim idx As Integer = bs.Find("Name", TextBox1.Text)
        ComboBox1.SelectedItem = bs(idx)

        Dim idx As Integer = bs.Find("Name", TextBox1.Text)
        bs.Position = idx

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist