Problem printing report!

[majc]

Im using ADO connection, Visual Basic 6 and Crystal Reports 4.6.

Im trying to print some reports but nothing happens and dont give me any error.

This is my code:

Private Sub cmdImprimir_Click()
 
Dim rsRecordSet As Recordset
Set rsRecordSet = New Recordset
 
Formula = "{Facturas.Id_Factura} =" & Val(lblFact.Caption)
 
If (Val(lblIVA.Caption) = 5) And (Val(lblImprimir.Caption) = False) Then
 
    frmImprimir.Show
    frmImprimir.Hide
    
    CrystalReport2.ReportFileName = App.Path & "\facturaio.rpt"
    CrystalReport3.ReportFileName = App.Path & "\facturaid.rpt"
    CrystalReport4.ReportFileName = App.Path & "\facturaivat.rpt"
    CrystalReport5.ReportFileName = App.Path & "\reciboio.rpt"
 
End If
 
If (Val(lblIVA.Caption) <> 5) And (Val(lblImprimir.Caption) = False) Then
 
    frmImprimir.Show
    frmImprimir.Hide
    
    CrystalReport2.ReportFileName = App.Path & "\facturao.rpt"
    CrystalReport3.ReportFileName = App.Path & "\facturad.rpt"
    CrystalReport4.ReportFileName = App.Path & "\facturat.rpt"
    CrystalReport5.ReportFileName = App.Path & "\reciboo.rpt"
 
End If
 
CrystalReport2.SelectionFormula = Formula
CrystalReport3.SelectionFormula = Formula
CrystalReport4.SelectionFormula = Formula
CrystalReport5.SelectionFormula = Formula
 
CrystalReport2.PrintReport
CrystalReport3.PrintReport
CrystalReport4.PrintReport
CrystalReport5.PrintReport
 
End Sub

What i need to setup my crystal report objects manualy(with code and not in the properties)

Thanks in advance!

[Hack]

Moved to reporting section

[Asgorath]

Are you sure all reports are connected to the database?