sistema de reportes

[gasuton]

despues de dar vueltas y checar por internet llegue a poner algo asi en mi codigo para que me cierre mi datareport pero me da un error:

Código:

Private Sub cmdprint_Click()
    On Error GoTo trap

    If DataEnviroment1.CheckinoutMaes.State = adStateOpen Then
       DataEnviroment1.CheckinoutMaes.Close
    End If
    
    DataEnvironment1.CheckinoutMaes DTPicker1.Value, DTPicker2.Value
    Load ReporteMaestros
    ReporteMaestros.Show
trap:
MsgBox "Nº de error: " & Err.Number & " | " & Err.Description, vbCritical
End Sub

la idea es que con el If cheque si esta abierto y si es asi lo cierre, pero me da el siguiente error:


error 424 object required y no encuntro bien que puede ser..