Crystal report

[anadelaisla]

Hola, me pasa algo raro con un crystal report, quiero que me saque los datos de una determinada factura, pero en el informe me salen todas las facturas existentes en la base de datos, es como si no se rigera por la condicion de la query, pero sin embargo ésta me la hace bien, supongo que será al volcar el recordset en el crystal, os pongo el código a ver si me podéis ayudar:

Private Sub Form_Load()
On Error Resume Next
Screen.MousePointer = vbHourglass
Dim rs As New ADODB.Recordset
Dim sql As String
sql = "SELECT * From (factura_detalle INNER JOIN facturas ON factura_detalle.id_factura = facturas.id_factura)INNER JOIN cliente ON facturas.dni_cliente = cliente.dni_cliente " & _
"where facturas.id_factura= " & compraCliente.idFactura.text

rs.Open sql, Cn, adOpenDynamic, adLockOptimistic
Report.DiscardSavedData
Report.Database.SetDataSource rs
CRViewer1.ReportSource = Report
Screen.MousePointer = vbDefault
CRViewer1.ViewReport
CRViewer1.Zoom 90

End Sub

Gracias!
Saludos!