Private Sub EmployeesBindingSource_PositionChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles EmployeesBindingSource.PositionChanged
        Dim row As EmployeesDataSet.EmployeesRow
        row = CType(CType(Me.EmployeesBindingSource.Current, DataRowView).Row, EmployeesDataSet.EmployeesRow)

        Debug.WriteLine(row.EmployeeID)

    End Sub