Puedes probar con esto antes de presentar el reporte:
If DataEnvironment1.rsRsComp.State = adStateOpen Then
DataEnvironment1.rsRsComp.Requery
Else
DataEnvironment1.rsRsComp.Open
DataEnvironment1.rsRsComp.Requery
DataEnvironment1.rsRsComp.Close
End If
Donde rsRsComp es tu Command
Puedes probar con esto antes de presentar el reporte:
If DataEnvironment1.rsRsComp.State = adStateOpen Then
DataEnvironment1.rsRsComp.Requery
Else
DataEnvironment1.rsRsComp.Open
DataEnvironment1.rsRsComp.Requery
DataEnvironment1.rsRsComp.Close
End If
Donde rsRsComp es tu Command