Private Sub FindByLastNameButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FindByLastNameButton.Click

    ' Get the index number of the row in the BindingSource where the value of the

    '   LastName column = the value entered into the FindByLastName TextBox on this form.

    Dim indexNumber As Integer = Me.EmployeesBindingSource.Find("LastName", Me.FindByLastNameTextBox.Text)

    ' Position the binding source on the row.

    Me.EmployeesBindingSource.Position = indexNumber

End Sub