DataBinding - Avanti e indietro

Private Sub btnFirst_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFirst.Click
Me.BindingContext(Me.DatasetPersons1, "Persons").Position = 0
End Sub

Private Sub txtPrevious_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtPrevious.Click
Me.BindingContext(Me.Dataset, "Persons").Position = _
Me.BindingContext(Me.Dataset, "Persons").Position - 1
End Sub

Private Sub btnNext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNext.Click
Me.BindingContext(Me.Dataset, "Persons").Position = _
Me.BindingContext(Me.Dataset, "Persons").Position + 1
End Sub

Private Sub btnLast_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLast.Click
Me.BindingContext(Me.Dataset, "Persons").Position = _
Me.BindingContext(Me.Dataset, "Persons").Count - 1
End Sub