[VB6]-Verificare la connessione al DB

[b.lory]

if cn.state=0 then
msgbox "connessione chiusa"
elseif cn.state=1 then
msgbox "connessione aperta"
end if