Cierto, u_g (hola :D ) con lo que quedaría fetén asi:
Código:
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
Un saludo