datareport inestable

[analoyra]

Hola otra vez!!
ahora tengo un problema con el datareport, se comporta inestable, a veces me muestra el reporte con los datos y otras veces vacio

If DataEnvironment1.rsCommand2.State = 1 Then
' El recordset está abierto
Unload DataReport2
DataEnvironment1.Command2 Format(Val(Me.TxtNumComp.Text), "00000000")
DataReport2.ReportWidth = 0
'DataReport2.Refresh
DataReport2.Visible = True

Rs.Close
Else
DataEnvironment1.Command2 Format(Val(Me.TxtNumComp.Text), "00000000")
DataReport2.ReportWidth = 0
' DataReport2.Refresh
DataReport2.Visible = True

Rs.Close
End If

y en el datareport tengo esto
Private Sub DataReport_QueryClose(Cancel As Integer, CloseMode As Integer)
If DataEnvironment1.rsCommand2.State = 1 Then

DataEnvironment1.rsCommand2.Close
'Unload Me
End If
End Sub

En que le estoy errando ?? a ver si a alguno se le ocurre porque es inestable
gracias