Crystal Report - VB 6.0 + Cr 8.0

Tengo el siguiente código:

RutaRep = App.Path
RutaRep = RutaRep & "\Reportes\"
CtrReporte.WindowTitle = "Listado de " & Me.Tag
CtrReporte.Connect = BdPath
CtrReporte.ReportFileName = RutaRep & "RptClientes.rpt"
CtrReporte.SelectionFormula = ""
CtrReporte.DiscardSavedData = True
If Trim(TxtCliente) <> "" Then CtrReporte.SelectionFormula = """{Clientes.Cliente_Id}= '" & TxtCliente & "' """
CtrReporte.Destination = crptToWindow
CtrReporte.Action = 1
CtrReporte.SelectionFormula = ""

Cuando lo pruebo en el Reporte, todo funciona perfecto, el problema se presente cuando lo ejecuto por Vb, cuando llega a CtrReporte.Action = 1, me da el error Nro. 20515, error en el <RECORD_SELECTION> , el texto restante no parece ser parte de la formula.

Tengo todo mis reportes con este problema, alguien me podrá ayudar, se lo agradeceria mucho.

De anemano muy agradecido.

Utilizando cr8 no le doy a action (creo que ese era el que utilizaba con el que traía el paquete de visual, el 4.6) directamente le doy a la propiedad viewreport, o printreport; este ultimo casi siempre me da problemas; El cr8 tiene una propiedad llamada PrintOut, que te deja imprimir o bien por pantalla (true) o por impresora (false). Te pongo un ejemplo de report que haría yo para imprimir en papel.

'estas son las declaraciones iniciales
Dim AP As New CRAXDRT.Application
Dim re As New CRAXDRT.Report

'variables internas de una function , por ejemplo un evento click
Dim sreporte As String
Dim formu As String

sreporte = App.Path & "\inf.rpt"
Set re = AP.OpenReport(sreporte)

'Asigna el path
re.DiscardSavedData
CRViewer1.ReportSource = re

'si quieres hacer una búsqueda de campos por fórmula, me gusta más esta
re.RecordSelectionFormula = "formula que tu quieras"
'por si algunos campos necesitas que sean parámetros de entrada: por ejemplo,
'que quieres que el caption de un label, o el txt de un text sean el cliente sobre el que
'se basa el informe

re.ParameterFields.Item(1).AddCurrentValue (LblCliente.Caption)

'imprimo en papel
re.PrintOut (False)
' "rompo" el re
Set re = Nothing

Espero que te sea algo de ayuda, un saludo

Prodrias mandar un ejemplo de como poder insertar un texto cualquiera en un reporte CR. en el ejemplo mencionas lo siguiente:

re.ParameterFields.Item(1).AddCurrentValue (LblCliente.Caption)

'imprimo en papel
re.PrintOut (False)
' "rompo" el re
Set re = Nothing

pero me sale un error de subindice esta fuera del intervalo. por favor ayuda...

A mi se me presento este problema y lo que hice es mandarle la consulta al data en lugar de usar el selectionformula, actualize el data y con eso quedo.