Dim sf As New Form1
        Dim bs As New BindingSource(Me.TestdbDataSet._MA_Liste, "")
        bs.Filter = "Name Like '" & Me.NameTextBox.Text & "%'"
        sf.ListBox1.DataSource = bs
        sf.ListBox1.DisplayMember = "Name"
        sf.ShowDialog()
        Me.MA_ListeBindingSource.Position = Me.MA_ListeBindingSource.Find( _
          "Name", bs.Current("Name"))