Aplicar filtros crystal vb6

[analoyra]

Hola, estoy intentando aplicar filtros para mostrar un reporte hecho con el crystal 8
Dim crApp As New CRAXDRT.Application
Dim crReport As New CRAXDRT.Report

'Abrir el reporte
Screen.MousePointer = vbHourglass


Set crReport = crApp.OpenReport(App.Path & "\report1.rpt", 1)
crReport.Database.SetDataSource crReport

crReport.RecordSelectionFormula = "{compcompra.nrocomp} = " & FrmCompra.TxtNumComp

crReport.DiscardSavedData
CRViewer.ReportSource = crReport
CRViewer.DisplayGroupTree = False
CRViewer.ViewReport
Screen.MousePointer = vbDefault


Pero me tira un error que se requiere una cadena, yo lo que necesito es tomar solo los datos referidos al numero de factura que ingreso, como por ejemplo fecha, tipo de comprobante (que esta en otra tabla)

gracias de antemano!!!