Visual Basic para Aplicaciones - 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????????????????????????????????

Disculpa la tardanza !, porque no miras en la ayuda acerca del metodo REQUERY ?