急，如何在程序中时时测试数据库的连接状态，在线等待！！！

我想在程序中时时测试数据库的连接状态，如果突然断网或者后台服务器死机，可以切换到本地表中，但是测试数据库的连接要求时间不能太长，否则影响正常的操作，如何实现。
   我在timer时间中用BDE测试可以实现但是反映时间太长，用ado如果连接突然断网，其connnected属性仍然处于true状态，尽管已经先close再open,
  ado的连接代码如下：
function adoconnect: Boolean;
begin
  with dm_dataM.con1 do
  close;
  begin
    try
    begin
      Open;
      result:=Connected;
    end;
    except
      result:=Connected;
    end;
  end;
end;
请高手指点！！