Public Class frmTausch
 
    Dim dt As New DataTable
    Dim bs As New BindingSource
 
    Dim dgv As New DataGridView With _
         {.Parent = Me, .DataSource = bs, .Height = 250}
 
    Dim WithEvents btnTausch As New Button With _
         {.Parent = Me, .Top = 300, .Text = "Tauschen"}
 
 
    Private Sub frmTausch_Load(sender As System.Object, _
        e As System.EventArgs) Handles MyBase.Load
 
        dt.Columns.Add("IDx", GetType(Integer))
        dt.Columns("IDx").Unique = True
        dt.Columns.Add("irgendwas", GetType(String))
 
        For i As Integer = 0 To 25
            dt.Rows.Add(i, Chr(65 + i))
        Next i
 
        bs.DataSource = dt
 
        bs.Sort = "IDx ASC"
    End Sub
 
 
    Private Sub btnTausch_Click(sender As Object, _
        e As System.EventArgs) Handles btnTausch.Click
 
        'Hier werden die IDx-Werte der Sätze getauscht
 
        CType(bs(bs.Find("IDx", 2)), DataRowView)("IDx") = 99999
        CType(bs(bs.Find("IDx", 3)), DataRowView)("IDx") = 2
        CType(bs(bs.Find("IDx", 99999)), DataRowView)("IDx") = 3
    End Sub
End Class