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????????????????????????????????

me faltan datos para poder ayudarte, pero trata de hacer un refresh antes de la consulta y despues de esta.

Saludos

Probastes a en el Crystal Reports, en la opción del Reporte, destildar la opción "Save Data With Report" ????? Salu2 y espero te sirva !!!!

Cambia
CR1.DiscardSavedData = False
por
CR1.DiscardSavedData = True

Saludos

Puse
CR1.DiscardSavedData = True

que es cierto que debo ponerlo así pero el caso que seguía sin funcionar.

Al final lo que he hecho es cerrar el recordset (lo hacía antes), volver a abrirlo y volver a cerrarlo y FUNCIONA.

En principio todo esto no es necesario pero.....

GRACIAS a todos.