Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim sf As New SearchForm
        Dim bs As New BindingSource(Me.NWINDDataSet.Customers, "")
        bs.Filter = "CompanyName Like '" & Me.SearchValue.Text & "%'"
        sf.ListBox1.DataSource = bs
        sf.ListBox1.DisplayMember = "CompanyName"
        sf.ShowDialog()
        Me.CustomersBindingSource.Position = Me.CustomersBindingSource.Find( _
          "CustomerID", bs.Current("CustomerID"))
    End Sub

________
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