una pequeña pero muy buena forma de saber lo que requieres esta en
ESTE POST del cual rescataremos lo siguiente
Código HTML:
if isObject(conn) then
Select Case conn.Status
case 1
' Esta abierto
case 2
' Se esta abriendo
case 4
' Se esta ejecutando un comando
case 8
' El objeto se esta cargando
case Else
' El objeto esta cerrado
end Select
end if