Validacion de reportes

[t0n1]

Buenas!!!!. Quisiera saber como validar reportes en los casos en que están abiertos, uno los cierra y cuando quiere volver a abrir los mismos, aparece el cartel de: "La operación no está permitida si el objeto está abierto".
Después, no puedo validar un reporte que me trae datos de un registro individual cargados desde un inputbox. Pongo este código en caso que el usuario acepte sin poner ningún dato:

Private Sub mnuRii_Click()

Dim opc As Integer

opc = InputBox("Interesado a mostrar")

If opc = "" Then
MsgBox "Ingrese el código"
Exit Sub
Else
DataEnvironment1.ReporteIndividualInformes opc
DataReportIndInf.Show vbModal
DataEnvironment1.rsReporteIndividualInformes.Close
End If

...y me aparece un cartel de "no coinciden los tipos".

Saludos!!!!