Crystal Report - 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 diseñador de informe del crystal, abre tu informe. Opcion Archivo
desbloquea guardar datos con el informe.