Access用ADO执行SQL语句，超时如何避免？

shepdog

各位！
小弟编了个子过程，用于在Access端执行SQL语句，操作SQL服务器的数据。
最近遇到问题，当SQL服务器慢的适合，经常执行到这个子过程就报错，查询超时！
请问，怎么更改代码，使之能够避免超时的报错？

子过程代码如下。其中 str 是 SQL的执行语句，cnstr是连接字符串公共常量

Public Sub Cnnstr(ByVal str As String)
Dim cn As New ADODB.Connection
If str = "" Then
MsgBox "缺少执行语句字符串！"
Exit Sub
Else
cn.Open cnstr
'Debug.Print str
cn.Execute str
On Error Resume Next
cn.Close
Set cn = Nothing
End If
End Sub

shepdog

另外有个问题：
在子过程放在其他过程中执行，可能报错；
而当我把子过程单独拿出来执行，不会报错。

对此很是不解。

shepdog

各位大侠帮帮忙啊！只在包含多个子过程的时候才报错，而且不是报第一个子过程。
网上有资料说，是因为前面的子过程SQL服务器没运行完成，后面的子过程又运行了，SQL就会报错。怎么处理呢？我想能不能在子过程中强制等待3秒，以确保SQL执行完成。
报错信息如下：

shepdog

还是有问题，请问，有没有人可以帮忙啊？

Renco

你的
set cn = new adodb.connctrion
之后。这个cn又和谁建立了open?cn的connectionstring在哪？

解决以上问题后，你可以设置
cn.commandtimeout=10  '表示等10秒