Change sort criteria for Crystal 10 report at runtime

[indydavid32]

Does anyone know how to change the sorting of a Crystal 10 report in ASP .Net at runtime?

Here is my code in my CrystalReportViewer page.

Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared
Imports System.IO
Public Class ARCustRptView
    Inherits System.Web.UI.Page
 
Dim crpt As New ReportDocument
    Dim crExportOptions As ExportOptions
    Dim crDiskFileDestinationOptions As DiskFileDestinationOptions
    Dim myTable As CrystalDecisions.CrystalReports.Engine.Table
    Dim myLogin As CrystalDecisions.Shared.TableLogOnInfo
    Dim strFileName As String
 
    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim strPriveledge As String
        Try
            If (Request.Cookies("Priveledge") Is Nothing) Or Request.Cookies("Priveledge").Value = String.Empty Then
                Response.Redirect("Login.aspx")
            End If
        Catch
            Response.Redirect("Login.aspx")
        End Try
 
        strPriveledge = Request.Cookies("Priveledge").Value
        If strPriveledge = "" Or strPriveledge = Nothing Then
            Response.Redirect("Login.aspx")
        Else
            strPriveledge = Request.Cookies("Priveledge").Value
        End If
 
        crpt.Load("C:\InetPub\wwwroot\McClure\ARCustRpt.rpt")
        For Each myTable In crpt.Database.Tables
            myLogin = myTable.LogOnInfo
            With myLogin.ConnectionInfo
                .ServerName = "202.101.8.107"
                .UserID = "UID"
                .Password = "PWD"
                .DatabaseName = "PDI_1"
            End With
            myTable.ApplyLogOnInfo(myLogin)
        Next
        crpt.RecordSelectionFormula = Session("strFormula").ToString
        CrystalReportViewer1.ReportSource = crpt
        CrystalReportViewer1.RefreshReport()
        CrystalReportViewer1.DataBind()
 
        strFileName = "ARCust" & Request.Cookies("EmpID").Value & ".Pdf"
        ExportReport()
 
        Response.ClearContent()
        Response.ClearHeaders()
        Response.ContentType = "application/pdf"
        Response.WriteFile("C:\exported\" & strFileName)
        Response.Flush()
        Response.Close()
 
        System.IO.File.Delete("C:\exported\" & strFileName)
        If Not IsPostBack Then
 
        End If
    End Sub
    Sub ExportReport()
        Dim ExportPath As String
        ExportPath = "C:\exported\"
        If Directory.Exists(ExportPath) = False Then
            Directory.CreateDirectory("C:\exported\")
        End If
        crDiskFileDestinationOptions = New DiskFileDestinationOptions
        crExportOptions = crpt.ExportOptions
        crDiskFileDestinationOptions.DiskFileName = ExportPath + strFileName
        With crExportOptions
            .DestinationOptions = crDiskFileDestinationOptions
            .ExportDestinationType = ExportDestinationType.DiskFile
            .ExportFormatType = ExportFormatType.PortableDocFormat
        End With
        Try
            ' Export the report
            crpt.Export()
        Catch err As Exception
            Response.Write("<BR>")
            Response.Write(err.Message.ToString)
        End Try
    End Sub
End Class