Private Sub DataGridView1_CellMouseDown(ByVal sender As Object, ByVal e As _
  System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles _
  DataGridView1.CellMouseDown
 
        'Prüft ob die rechte Maustaste betätigt wurde und der Row Index gesetzt 
        ' ist
        If e.Button = Windows.Forms.MouseButtons.Right And e.RowIndex >= 0 Then
            'Setzt den Datensatzzeiger weiter (inkl. Selektion)
            BindingSource1.Position = e.RowIndex
        End If