Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button7.Click
 
       'DataGrid Markierung aufheben
        DataGrid1.UnSelect(DataGrid1.CurrentRowIndex)
 
       'springt zum nächsten Datensatz
        Me.BindingContext(DV1).Position += 1
 
       'Zeigt die aktuelle Datensatzposition im DataGrid an
        Pos()
 
       'DataGrid Markierung setzen
        DataGrid1.Select(DataGrid1.CurrentRowIndex)
 
   End Sub

VB@rchiv its the Best