Private Sub dgvData_Sorted(ByVal sender As Object, ByVal e As System.EventArgs) _
  Handles dgvData.Sorted
 
        Try
 
 
            With dgvData
 
                .Rows(0).Frozen = False
                .Rows(1).Frozen = False
                .Rows(2).Frozen = False
                .Rows(3).Frozen = False
 
                Dim row As DataGridViewRow
                Dim row0 As DataGridViewRow = Nothing
                Dim row1 As DataGridViewRow = Nothing
                Dim row2 As DataGridViewRow = Nothing
                Dim row3 As DataGridViewRow = Nothing
                For Each row In dgvData.Rows
 
                    If row.Tag = "Row" & dgvDataRowIndex.Beschreibung Then
                        row0 = row
                    End If
 
                    If row.Tag = "Row" & dgvDataRowIndex.Feldvariable Then
                        row1 = row
                    End If
 
                    If row.Tag = "Row" & dgvDataRowIndex.Einheit Then
                        row2 = row
                    End If
 
                    If row.Tag = "Row" & dgvDataRowIndex.Typ Then
                        row3 = row
                    End If
 
                Next
 
                If Not IsNothing(row0) Then
                    .Rows.Remove(row0)
                    .Rows.Insert(0, row0)
                    .Rows(0).Frozen = True
                End If
 
                If Not IsNothing(row1) Then
                    .Rows.Remove(row1)
                    .Rows.Insert(1, row1)
                    .Rows(1).Frozen = True
                End If
 
                If Not IsNothing(row2) Then
                    .Rows.Remove(row2)
                    .Rows.Insert(2, row2)
                    .Rows(2).Frozen = True
                End If
 
                If Not IsNothing(row3) Then
                    .Rows.Remove(row3)
                    .Rows.Insert(3, row3)
                    .Rows(3).Frozen = True
                End If
 
            End With
 
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
 
    End Sub

Vielen Dank,

Michael