...Ok!, pense que ya tenias lo demas, te mando el codigo completo...
Screen.MousePointer = vbHourglass
If DataEnvironment1.Listados.State = 1 Then
DataEnvironment1.rsCommand1
Else
DataEnvironment1.Listados.Open
DataEnvironment1.rsCommand1
End If
Load DataReport1
Screen.MousePointer = vbDefault
DataEnvironment1.rsCommand1.Requery
DataReport1.Show
DteEntornodeDatos.Listados.Close
...Saludos!