[VB] Problema con Refresh en VB + Cystal Report

Gente, tengo un problema con el metodo 'Refresh' en VB 6.0. La cosa es asi, tengo una app que estoy haciendo en VB 6.0, una DB Access y ya estoy en la etapa de hacer algunos reportes. Hice un reporte con Crystal y lo visualizo desde la app en VB 6.0. En principio funciona bien, el problema esta cuando cambio algun dato en la DB, despues visualizo el reporte y, como se imaginaran, los datos son los anteriores a la ultima modificacion en la DB. El tema es que si le doy al boton de 'Refresh' que esta en la barra de controles del mismo CRViewer, los datos en el reporte se actualizan perfectamente bien, sin problemas!!! pero si quiero hacerlo por codigo, me da un error.

A continuacion les pongo el codigo que estoy usando...

Option Explicit
Private rptApp As New CRAXDDRT.Application
Private rptReporte As New CRAXDDRT.Report

Private Sub Form_Load()

Set rptReporte = rptApp.OpenReport(App.Path & "\Marcaciones_por_dia.rpt", 1)

Visor.ReportSource = rptReporte
Visor.ViewReport
Visor.Refresh '###ACA SALTA EL ERROR###
Set rptReporte = Nothing
Set rptApp = Nothing

End Sub


Y el mensaje que me da cuando "ejecuto" el codigo es ...

Run-Time error '-2147417848 (80010108)':

Method 'Refresh' of object 'ICrystalReportViewer4' failed

Si sacamos la linea de codigo (Visor.Refresh) ANDA TODO BIEN!!! y simplemente se pueden actualizar los datos clickeando en el boton "Refresh" del control CRViewer en tiempo de ejecucion, pero no puedo actualizar los datos directamente por el codigo para que se muestren ya actualizados.

Alguna idea??? Me darian una mano buenisima!!!

Mil gracias!!!!!!!!!!!!!!