Visual Basic - AYUDA. ESTOY DESESPERADA

Mediante código relleno una tabla de access previa selección de los datos y pretendo mostrar el contenido en el informe mediante la llamada siguiente:

Public Sub CR_conexion_Sel(CR1 As CrystalReport, file As String, Sel As String, ODBC As String)
On Error GoTo ERRORCRYSTAL
Dim i As Long

CR1.Reset
CR1.ReportFileName = WPathReport & "\" & file
CR1.Connect = "ODBC;DSN=" & ODBC & ";"
CR1.DiscardSavedData = False
CR1.WindowState = crptMaximized
CR1.WindowShowExportBtn = True
CR1.Destination = crptToWindow
CR1.ReportSource = crptReport

If Sel <> "" Then
CR1.SelectionFormula = Sel
End If
CR1.WindowShowRefreshBtn = True
CR1.WindowShowPrintBtn = True
CR1.WindowShowGroupTree = True
CR1.WindowShowPrintSetupBtn = True
CR1.Action = 1

Exit Sub
ERRORCRYSTAL:
MsgBox "Error número:" & Err.Number & Chr(13) & "Descripción:" & Err.Description

End Sub

El problema está en que los datos que aparecen son los de la anterior consulta y sólo si pulso el botón de Refresh, al cabo de un tiempo, aparecen los datos que he seleccionado

¿PORQUE????????????????????????????????

En el control CrystalReport pon la propiedad DiscardSaveData = true (por defecto viene False). Un saludo.

No por esas......

La manera de hacer que me salga es cerrando el recordset que estoy rellenando, volverlo a abrir y volverlo a cerrar y cargar el informe

En otras aplicaciones que he realizado esto no era neceario.

¿Porqué? Misterios de la vida

Gracias de todas formas