主题：请教，判断SQL服务器是否断开？

利用这个判断：Dim Conn As New Data.Oledb.OledbConnection(Str1)，系统会抛出异常，而且反映速度很慢。有无其它办法判断数据库是否连接办法（不抛也异常，而且响应速度很快），请各位帮忙，谢谢！！！

ping有些时候不行呀，因为能ping通，不代表数据库运行，我这还有一个原因是，使用动态域名来连接服务器的，网络断开了，一段时间内是可以ping通的。有无其它办法进行判断。谢谢！！

Dim Conn As New Data.Oledb.OledbConnection(Str1)
Try
   b = True
   messagebox.show("成功")
Catch
   b = False
   messagebox.show("失败")
End Try
如果服务器断开时就抛出异常，根本不会执行Catch代码，这个因如何解决。

OK!谢了！！