Close Data Reports in MDI Through code

I use the following function to unload any open form and load the active form in my MDI Application.

'A general function which can show the active form and unload any other open form
Public Sub formShow(activeForm As Form)
Dim frm As Form
Load activeForm
activeForm.Show
activeForm.WindowState = 2
For Each frm In Forms
If (Not (frm Is activeForm) And Not (frm Is Me)) Then
Unload frm
End If
Next frm
End Sub

I want something similar with my Data Reports. Can any one help me out with this?

Thanks
Prathima