VB 连接DB（sqlserver）报错（偶尔） 3709

Question

有三个定时任务 都要连同一个DB 其他两个不会错
代码如下
Sub GetPcrpInfo(lastEndTime)
Dim objCon, objCmd, objRs, strSQL
Dim ErrNumber, ErrMsg
Dim key, pcrpStatus, transportOrderFlg

Set objCon = CreateObject("ADODB.Connection")
Set objCmd = CreateObject("ADODB.Command")
Set objRs = CreateObject("ADODB.Recordset")

On Error Resume Next
objCon.ConnectionString = cdbPicRASConStr
objCon.Open
objCmd.CommandType = 1 'adCmdText
objCmd.ActiveConnection = objCon
objCmd.CommandTimeout = 0
ErrNumber = Err.Number
ErrMsg = Err.Description
On Error GoTo 0
If ErrNumber <> 0 Then
Call LogWrite("ERROR", "PicRASに接続失敗" & " [ErrNumber]：" & ErrNumber & " [ErrMsg]：" & ErrMsg )
Set objRs = Nothing
Set objCon = Nothing
Set objCmd = Nothing
Call GotoEND
End If

都是在服务器上执行的 应该不是网络问题

Answer 1

报的错是
请求的操作需要OLE DB会话对象，而当前提供程序不支持此对象。