Crystal Report - Ayuda Filtros

Hola soy nueva en esto de los foros

estoy trabajando con VB5 y Crystal 8.5

Necesito crear un informe con filtros, pero cuando filtro no respeta el filtro,
el control que uso esl el cristal viewer
este es mi codigo por favor alguien ayudeme me urge GRacias!!!


Private crApp As New CRAXDRT.Application
Private crReport As New CRAXDRT.Report

Private Sub Form_Load()
Dim filtro As String
'Abrir el reporte
Screen.MousePointer = vbHourglass
Set crReport = crApp.OpenReport(App.Path & "\estados.rpt", 1)
' Parametros del reporte

If Len(Trim(tIdEstado)) > 0 Then
filtro = "{Estados.IDEstado}='" & tIdEstado & "'"
CRV.SelectionFormula = filtro
Else
CRV.SelectionFormula = ""
End If

CRV.ReportSource = crReport
CRV.DisplayGroupTree = True
CRV.ViewReport
Screen.MousePointer = vbDefault

End Sub