怎么bypass掉sql连接错误的提示

Question

我做了一个vb系统，当网络连接正确时候没问题；而当网络down掉后，执行打开数据库的语句，一段时间后会弹出sql连接不正确的提示。即使我写了on error resume next或者err.number>0等代码，还是会出现系统报错，自自己写的中文形式错误报告只能在这之后显示。怎么取消这个系统产生的报错？

Answer 1

Private Sub Command1_Click()
on error resume next
  objcon.Open "Provider=sqloledb.1;user id=sa;password=;Initial Catalog=pc;Data Source=173.18.2.56"
  rst.Open "select * from 保养计划", objcon, 2, 3
  objcon.Close
End Sub