Visual Basic 6 y Crystal Reports 9

[davchi]

Hola a todos.
Paso a comentar un error que me tira de vez en cuando, pero no siempre

Error:
Error en 'Refresh' en objeto 'ICrystalReportViewer9'

Me marca en la linea que esta en negrita en el codigo siguiente:

Código:

Private Sub InitCrystalReport()
    Dim CRReport As CRAXDDRT.Report
    Dim CRApp As New CRAXDDRT.Application

    Set CRReport = CRApp.OpenReport(App.Path & "\Reportes\prefactura-detalle.rpt")
    
    With CRReport
        .DiscardSavedData
        .Database.Tables(1).SetDataSource (App.Path & "\BBDD.FBD")
        .Database.Tables(1).SetLogOnInfo "NX", "", "SYSDBA", "masterkey"
        
        If mostrar = True Then
            .RecordSelectionFormula = " {FAC_DETALLE_CRYSTAL.nfactura} = '" & Trim$(DataCombo.BoundText) & "' "
            .FormulaFields(1).Text = "'" & DataCombo.Text & "'"
            .FormulaFields(2).Text = "'" & nombre_obra & "'"
            cmdRefresh.Enabled = True
            mostrar = False
        Else
            .RecordSelectionFormula = strRecordsFormula
            .FormulaFields(1).Text = "'" & DataCombo.Text & "'"
            .FormulaFields(2).Text = "'" & obra_social.Text & "'"
        End If
            
    End With

    With CRView
        .ReportSource = CRReport
        .Refresh
        .ViewReport
        .Zoom 100
            While .IsBusy
                DoEvents
            Wend
        .Visible = False
        .Refresh
    End With
    
    Set CRApp = Nothing
    Set CRReport = Nothing

End Sub

Private Sub cmdRefresh_Click()
cmdRefresh.Enabled = False

Dim rso As New ADODB.Recordset

    strRecordsFormula = vbNullString
    
    If LenB(DataCombo.Text) > 0 Then
        ObraF = " {FAC_DETALLE_CRYSTAL.nfactura} = '" & Trim$(DataCombo.BoundText) & "' "
        With rso
            .Open "SELECT p.prenumero, o.id_obra_social, o.nombre " & _
                    "FROM prefacturado p INNER JOIN obra_social o ON p.id_obra_social = o.id_obra_social " & _
                    "WHERE p.prenumero = '" & Trim$(DataCombo.BoundText) & "' ", cnn, 1, 1
                    obra_social.Text = !nombre
            .Close
        End With
    Else
        ObraF = vbNullString
    End If
    strRecordsFormula = ObraF
    InitCrystalReport
    cmdRefresh.Enabled = True
    
End Sub

Como dije, no siempre me tira el error, pero quiero saber pq algunas veces si, y otras no.

Muchas Gracias