vb脚本向本机和局域网中的另一电脑分别记录数据，存在问题

vb脚本分别向本机及另一电脑的SQL中记录数据，当A，B电脑SQL连接都正常时。
在A或B电脑操作记录数据，不存在问题。

当其中一台电脑关机，SQL连接不存在，脚本中加上一条On Error Resume Next。

但是程序界面会卡上几秒左右，

如何判断两台电脑的连接是否正常，
在A电脑上：
If B电脑的SQL连接存在 Then
'记录
Else
'
End If

在B电脑上：
If A电脑的SQL连接存在 Then
'记录
Else
'
End If

如何判断SQL的连接状态，这个过程是否也需要几秒的时间？
--------------------编程问答-------------------- 卡几秒是因为程序在同步等待网络超时。由于VB6没有多线程机制，需要使用doevents来解决卡UI的问题。
我个人理解对于网络超时没有什么直接判断是否正在连接的方便方法，因为判断过程也会等超时。

补充：VB ,  数据库(包含打印，安装，报表)