Crystal Report - DUDA CRYSTAL VIEWER

Hola a todos, les cuento la nuevo duda que se me presentó...

Estoy trabajando con Visual y Crystal y en una botón tengo este code para que me filtre y muestre el reporte:

Private Sub CommandVERINFORME_Click()
Dim FiltroInforme As String

Crystal.Destination = 0
Crystal.WindowState = crptMaximized
FiltroInforme = "{anaxprot.idprotocolo} >= " & TextProtocolo.Text
Crystal.SelectionFormula = FiltroInforme
Crystal.ReportFileName = App.Path & "\protocolo.rpt"
Crystal.DataFiles(0) = "datos.mdb"
Crystal.WindowTitle = "Informe de Protocolos"
Crystal.Action = 1
End Sub

Me lo muestra espectacular..... ahora, yo quiero mostrar el informe en un Viewer. Para eso, ya cree el diseñador, y lo puedo mostrar sin problema, PERO.... no se como hacerlo filtrar... este es el code, que me creo el asistente cunado cree el diseñador:

Private Sub Form_Load()
Dim Report As New CrystalReport1

CRViewer1.ReportSource = Report
CRViewer1.ViewReport
CRViewer1.Zoom 66 'para el zoom
End Sub

Quise agregar el "FiltroInforme", pero no paso nada, no me filtró nada.
Alguien sabe como hacerlo. Gracias ! Javier

Ke tal Javier, en estos momentos ya no trabajo con vb 6, en vb.net existe esta forma para trabajar con CrystalReportViewer y este objeto utiliza la siguiente línea para filtrar información:

Crv.RecordSelectionFormula = Filtro

espero esto te pueda servir

Saludos

Hola Gera, gracias por la ayuda, pero he probado y no me sale esta opción (RecordSelectionFormula o SelectionFormula).
Solamente sale esta opción (y actualmente la estoy utilizando) cuando llamo a un reporte, pero en otra ventana (que no sea en el viewer).

Aca está el code para que lo veas...

Crystal.Destination = 0
Crystal.WindowState = crptMaximized
FiltroInforme = "{anaxprot.idprotocolo} >= " & TextProtocolo2.Text
Crystal.SelectionFormula = FiltroInforme
Crystal.ReportFileName = App.Path & "\protocolo.rpt"
Crystal.DataFiles(0) = "datos.mdb"
Crystal.WindowTitle = "Informe de Protocolos"
Crystal.Action = 1

Si, se te ocurre alguna idea, no dudes en postearla.

Desde ya te agradezco. Javier

Ke tal Javier, recorde ke ya antes había dado una respuesta al respecto, en ese entonces tenia instalado vb 6, pero por ahora ya no trabajo con diche versión, así ke buske mi respuesta anterior.

Hacer referencia a Crystar Report Viewer en el proyecto, insertar el objeto CRViewer1 y agregar las siguientes lineas básicas de código:

Dim crReport As New CRAXDRT.Report
Dim tbl As CRAXDRT.DatabaseTable
Dim cadena(3) As String

cadena(0) = "NOMBSEVIDOR"
cadena(1) = "NOMBDB"
cadena(2) = "NOMUSUARIO"
cadena(3) = "PASSWORD"

Set crReport = crApp.OpenReport(App.Path & "\NombReport.rpt", 1)
For Each tbl In crReport.Database.Tables
tbl.SetLogOnInfo cadena(0), cadena(1), cadena(2), cadena(3)
Next

Para filtrar la información del reporte sería así (ejemplo para rango de fecha):

crReport.RecordSelectionFormula = "{NOMTABLA.Fecha}>=date('" & VFecha1 & ") AND "{NOMTABLA.Fecha}<=date(" & VFecha2 & ")"

CRViewer1.ReportSource = crReport
CRViewer1.EnableExportButton = True <-- esto es para ke se active el botón de exportar
CRViewer1.ViewReport

Saludos