si utilizza "state"

Fai cosi

If Rsprova.State = AdStateOpen then Rsprova.Close

Funzia sicuro