数据库判断连接的问题

[overcomeself]

我的程序如下：
ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;User ID=administrator;Initial Catalog=hrsys;Data Source=" & servername & ""
cn.ConnectionString = ConnectionString
cn.Open

如果cn连接不上数据库的话会弹出一个对话框，如何做才能判断
cn能否连上数据库，从而做出相应的处理。

[benjamin8064]

可以用错误捕捉On Error Goto

[AKillGodKillBuddha]

on err goto myerror
ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;User ID=administrator;Initial Catalog=hrsys;Data Source=" & servername & ""
cn.ConnectionString = ConnectionString
cn.Open
myerror:
msgbox("数据库连接失败")