Se etter åpene recordset og db forbindelser

Er det noen mulighet for å sjekke om disse er åpene da koden jeg har laget er meget lang og dette vil spare meg for masse tid.

set adoCn = Server.CreateObject("ADODB.Connection")
adoCn.Open strConn

set adoRs = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT * From TblWPDocument"
set adoRs = adoCn.Execute(strSQL)

adoRs.Close
Set adoRs = Nothing

OSV...

kan man lave noe ala dette?

If adoRs.OPEN Then
    Response.Write "Er åpen!"
Else
    Response.Write"Er stengt!"
End if