如何用state判断数据库连接状态

Question

Dim rs As ADODB.Recordset
Dim cnn As ADODB.Connection
Dim strcnn As String想用cnn.state 判断数据库是连接上了还是断开了，不要告诉我执行一条sql语句select 1 去判断，那样时时监控数据库太浪费数据库执行时间！！！

Answer 1

是不是这样?
if cnn.state=adstateopen then 
    msgbox "已经连接"
else
    msgbox "没有连接"
end if

Answer 2

if cnn.state=adstateopen then 
    msgbox "已经连接"
elseif cnn.state=adstateclose
    msgbox "连接断开"
end if