Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button1.Click
 
        Dim vals(0) As Object
        vals(0) = CObj(editName.Text)
        DataView1.ApplyDefaultSort = True
 
  Me.BindingContext(objDataset, "Adressdatei").Position = DataView1.Find( _
    vals)
 
End Sub