FindBy

In VB.NET I tried this code to search a record by Employee No. and it’s working;

Dim aFind As String
aFind = InputBox("Enter a Employee No.", "Search for Employee No.")
Dim r As DataSet1.EmployeeRow
r = DataSet11.Employee.FindByempno(aFind)
MessageBox.Show(r(2)) ‘Show employee name

But the problem is, the record position is still at the first record.

I have tried;
Me.BindingContext(Dataset11,”Employee”).Position = r

But it doesn’t work. All I want to happen is, when I found the Employee No. the position is in the Record that found based on empno.