VB的标准exe或ActiveX DLL工程中，采用ADO连接远程数据库。若网络突然断开，如何捕捉错误并且重新连接？（原先连接设置值仍存在；而且不

Question

VB的标准exe或ActiveX DLL工程中，采用ADO连接远程数据库。若网络突然断开，如何捕捉错误并且重新连接？
原先连接设置值仍存在；而且不想在工程中的每个Sub和Function中用错误处理重连。
数据库连接是写在一个通用的ActiveX DLL工程中，其它的标准exe或ActiveX DLL工程均调用这个通用的连接。

Answer 1

private m_cnn as connectionpublic property get Connection() as connection
  on error goto e
  m_cnn.execute "select getdate()"
ret:
  connection = m_cnn
  exit property
e:
  m_cnn.open
  resume ret
end property