Private Sub butErster_Click(ByVal sender As _
System.Object, ByVal e As System.EventArgs) Handles _
butErster.Click
   Me.BindingContext(Me.DataView1).Position = 0
End Sub

 
Private Sub butWeiter_Click(ByVal sender As _
System.Object, ByVal e As System.EventArgs) Handles _
butWeiter.Click
   Me.BindingContext(Me.DataView1).Position += 1
End Sub

 
Private Sub butZurück_Click(ByVal sender As _
System.Object, ByVal e As System.EventArgs) Handles _
butZurück.Click
   Me.BindingContext(Me.DataView1).Position -= 1
End Sub

 
Private Sub butLetzter_Click(ByVal sender As _
System.Object, ByVal e As System.EventArgs) Handles _
butLetzter.Click
   Me.BindingContext(Me.DataView1).Position = _
   Me.DataSet11.t_Kunden.Rows.Count - 1
End Sub

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

Gruß
Christoph