Visual Basic - URGENTE ..... CRYSTALREPORT

Si alguien pudiese ayudarme, se lo agradecería, mi problema es el siguiente

hago un set ...... select condición
data1,.refresh
cr1.discardsaveddata=true
cr1.action =1

y siempre me sale el mismo report, no se me actualiza, y pienso que la sentencia SQL está bien, pero no se de que puede ser, adjunto código de ejecución, para que lo veais más claro, Por favor, me urge mucho una manita

Gracias

Private Sub Command2_Click()
Form8.CRlistados.ReportFileName = "c:\gestionvb6\agenda.rpt"
Form8.CRlistados.Formulas(0) = "promocion= """ & cabpromocion & """"
Set tclientes = basededatos.OpenRecordset("select * from tablaclientes where codpromocion = " & Val(cabcodpromocion) & " order by nombre1", dbOpenDynaset)
Data1.Refresh
Form8.CRlistados.Action = 1
Form8.CRlistados.DiscardSavedData = True
proc_vaciar
End Sub

Prueba la propiedad DATAFIELD creo que ese es el nombre.
por ejemplo
cr.DataField(0) = ' Colocas la ruta de la bases de datos

Prueba a ver si te sirve.

Gracias, pero sigue sin funcionar, o no se como ponerlo

No enlaces el control al Datacontrol vamos a probar lo siguiente:

with ControlCrystal
.Destination = crptToPrinter
.DataFiles(0) = Ubicacion de la bases de datos
.ReportFileName = Ubicacion del reporte
.SelectionFormula = "{tablaclientes.codpromocion}= " & Val(cabcodpromocion)
Formulas(0) = "promocion= """ & cabpromocion & """"
.Action = 1
.Formulas(0) = vbNullString
end With

En ves de usar El data control usamos la sintaxis de formula del crystal, recuerda toda formula tiene que borrarla despues del ACTION.
Es lo mismo lo que pasa que en ves de que un data control te haga el trabajo hacemos que el crystal sea el que filtre la informacion y no el control. Si diseñastes bien el reporte deberia de funcionar.

Gracias por tu colaboración, eres un fenómeno, no se como agradecertelo, no dudes en consulatarme lo que seas, te eyudaré en lo que pueda

Coloca delante de data1.refresh lo siguiente:

Data1.Recordset = tclientes

Creo que te puede funcionar.

Saludos

Perdon.
Se me olvido el Set

Set Data1.Recordset = tclientes

Saludos.