Aplicar filtros crystal vb6

[analoyra]

ya lo solucione, muchas gracias
ahora el problema es que yo quiero que me muestre 1 solo dato que yo selecciono:
lo que hago es esto, la sentencia sql funciona, pero cuando muestra el crviewer me salen todos los datos de la tabla
Call Conecta
SQL = "SELECT * from CompCompra Where NroComp='" & FrmCompra.TxtNumComp.Text & "' "
rsAux.Open SQL, cn, adOpenDynamic, adLockPessimistic
If rsAux.RecordCount < 1 Then
MsgBox ("Anda a Cagar")
Else
rsAux.Find "NroComp='" & FrmCompra.TxtNumComp.Text & "'"
If rsAux.EOF Then
MsgBox "No encontrado"
Else
Report.SQLQueryString = sql
Report.DiscardSavedData
Report.EnableParameterPrompting = False
Report.RecordSelectionFormula = "{compcompras.nrocomp}=" & FrmCompra.TxtNumComp.Text
End If

Screen.MousePointer = vbHourglass
CRViewer1.ReportSource = Report
CRViewer1.ViewReport



creo que esta mal el RecordSelectionFormula....... como lo podria hacer??
GRACIAS