Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button3.Click       
'springt zum ersten Datensatz
Me.BindingContext(DV1).Position = 0       
            End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button5.Click
        'springt zum nächsten Datensatz
        'Me.BindingContext(DV1).Position += 1
    End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button3.Click
        'springt zum ersten Datensatz
        Me.BindingContext(DS, "DB2005_1").Position = 0
                  End Sub

VB@rchiv its the Best