Crystal Report - ordenando (ascendente o desc) desde codigo (2)

estoy ordenando o "sorteando" un reporte....que desde un formulario escojo el campo (nombre) y el orden (ascendente o descendete)........pero si escojo....por ejemplo "ascendete"....y salgo del reporte y trato de ordenar "descendente" me sigue mostrando el orden "ascendente"........................ya traté con......readrecords..........y discartsavedata.............................que puedo hacer

lo que hago para ordenar es algo asi:

Sub Add(pFieldDefinition As IFieldDefinition, SortDirection As CRSortDirection)


Dim Report As New CrystalReport1
Dim crxDatabaseFieldDefinitions As CRAXDRT.DatabaseFieldDefinitions
Dim crxDatabaseFieldDefinition As CRAXDRT.DatabaseFieldDefinition

Private Sub Form_Load()
Screen.MousePointer = vbHourglass

Set crxDatabaseFieldDefinitions= Report.Database.Tables.Item(1).Fields

Set crxDatabaseFieldDefinition= crxDatabaseFieldDefinitions.Item(3)

Report.RecordSortFields.Add crxDatabaseFieldDefinition, crDescendingOrder

CRViewer1.ReportSource = Report
CRViewer1.ViewReport
Screen.MousePointer = vbDefault

End Sub


gracias.............................................................