Thanks a lot Bruce! I made it work with this code:

Code:
        fielddef = myReport.Database.Tables.Item(0).Fields.Item("startnummer")

        For Each SortField In myReport.DataDefinition.SortFields
            If SortField.SortType = SortFieldType.RecordSortField Then
                SortField.Field = fielddef
            End If
        Next
But this code works only if it finds a RecordSortField. How do I add a new SortField if it can't find a RecordSortField?