Problem printing report!

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:

VB 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!

Moved to reporting section

Are you sure all reports are connected to the database?