Private Sub Pos()
 
        Me.Label6.Text = _
    (Me.BindingContext(Me.DataView1).Position + 1).ToString _
    & " von " & Me.DataView1.Count
 
End Sub

Private Sub AxXPButton201_ClickEvent_1(ByVal sender As System.Object, ByVal e _
  As System.EventArgs) Handles erster_da.ClickEvent
 
        Me.BindingContext(Me.DataView1).Position = 0
        Pos()
 
End Sub

Private Sub AxXPButton203_ClickEvent_1(ByVal sender As System.Object, ByVal e _
  As System.EventArgs) Handles vor.ClickEvent
 
        Me.BindingContext(Me.DataView1).Position += 1
        Pos()
 
    End Sub

Private Sub AxXPButton202_ClickEvent(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles zurück.ClickEvent
 
        Me.BindingContext(Me.DataView1).Position -= 1
        Pos()

Private Sub AxXPButton204_ClickEvent(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles letzter_da.ClickEvent
 
        Me.BindingContext(Me.DataView1).Position = _
          Me.DataSet11.Eingabe.Rows.Count - 1
        Pos()