在执行一段VB程序，连接到SQL SERVER，将某一个 A 数据表中的资料写进另一个 B 数据表时，
出现了以下的错误讯息：
行号：360
错误代码：-2147467259
描述：登录超时已过期

此错误出现在执行某一子程序时，程序片断如下：
Dim RS2 As New ADODB.Recordset
Dim RecCount As Long

        On Error GoTo errh
180       With RS2
270           If .State = adStateOpen Then .Close
360           .Open "Select Count(*) As RecCount From " & TblName, tmp_cn, adOpenForwardOnly, adLockReadOnly
450           RecCount = .Fields("RecCount")
540           .Close
630       End With

TblName 是 B 数据表的名称

在此时，早已连接上数据库，且已有多笔数据已由 A 数据表写入 B 数据表中，
且此错误讯息也不是每次执行程序时都会出现，
请问有那位知道为什么会出现此错误讯息吗?

注：连接数据库时已设定以下的连接参数：
        .ConnectionTimeout = 30  
        .CommandTimeout = 0     


[ 本帖最后由 vblearnerand 于 2015-3-20 13:53 编辑 ]