How to sort a coulumn in dataset VB.NET having multiple sort conditions

Partial Public Class _Default
   Inherits System.Web.UI.Page

   Private ds As New DataSet("dsFred")

   Private Sub form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles form1.Load
      GetDataSet()

      ' Generate the Columns
      AddColumnsToGridView(GridView1, ds.Tables("Fred"))
      AddColumnsToGridView(GridView2, ds.Tables("Fred"))

      GridView1.DataSource = Option1(ds.Tables("Fred"))
      GridView1.DataBind()

      GridView2.DataSource = Option2(ds.Tables("Fred"))
      GridView2.DataBind()
   End Sub

   Private Sub form1_Unload(ByVal sender As Object, ByVal e As System.EventArgs) Handles form1.Unload
      If Cache("dsFred") Is Nothing Then Cache("dsFred") = ds
   End Sub

   Private Function Option1(ByVal dt As DataTable) As DataView

      If dt.Columns("PrimarySort") Is Nothing Then
         ' add a computed column to the DataTable
         ' it will set the column value to 0(zero) if the pattern matches, else 1
         dt.Columns.Add("PrimarySort", GetType(Byte), "iif([sourcecolumnname] Like 'Package Total%', 0, 1)")
      End If

      Dim dv As New DataView(dt)
      ' set the sort to sort first on PrimarySort then original source column
      dv.Sort = "[PrimarySort] Asc, [sourcecolumnname] Asc"

      Return dv
   End Function

   Private Function Option2(ByVal dt As DataTable) As DataView
      ' This use Linq To DataSet
      ' Make sure that you have a project reference for:  System.Data.DataSetExtensions

      ' 2 ways to define the query

      Dim sort As System.Data.EnumerableRowCollection(Of DataRow) = _
         dt.AsEnumerable(). _
         OrderBy(Function(r As DataRow) IIf(r.Field(Of String)("sourcecolumnname") Like "Package Total*", 0, 1)). _
         ThenBy(Function(r As DataRow) r.Field(Of String)("sourcecolumnname"))

      ' this query may be a little bit easier to read
      'Dim sort As System.Data.EnumerableRowCollection(Of DataRow) = _
      '  From r In dt.AsEnumerable _
      '  Order By IIf(r.Field(Of String)("sourcecolumnname") Like "Package Total*", 0, 1), r.Field(Of String)("sourcecolumnname") _
      '  Select r

      Return sort.AsDataView()
   End Function

   Private Sub GetDataSet()
      If Cache("dsFred") Is Nothing Then
         Fill(ds)
      Else
         ds = CType(Cache("dsFred"), DataSet)
      End If
   End Sub

   Private Sub Fill(ByRef ds As DataSet)
      ' used to simulate filling the table from a query
      Dim dt As New DataTable
      With dt
         dt.TableName = "Fred"
         .Columns.Add("sourcecolumnname", GetType(String))
         .Rows.Add(New Object() {"Package Total 2"})
         .Rows.Add(New Object() {"Crime"})
         .Rows.Add(New Object() {"Apartments"})
         .Rows.Add(New Object() {"DIC - Personnel"})
         .Rows.Add(New Object() {"Package Total"})
      End With
      ds.Tables.Add(dt)
   End Sub

   Private Sub AddColumnsToGridView(ByVal gv As GridView, ByVal dt As DataTable)
   ' Ref - Answer from Steve Hibbert: http://stackoverflow.com/questions/2091457/how-to-hide-columns-in-an-asp-net-gridview-with-auto-generated-columns
      gv.Columns.Clear()
      For Each col As DataColumn In dt.Columns
         Dim field As New BoundField
         field.DataField = col.ColumnName
         field.HeaderText = col.ColumnName
         gv.Columns.Add(field)
      Next
   End Sub
End Class