SQL 连接已超时错误

[cjwcyc]

我用ADO 访问SQL SERVER
找开连接方式为：
strCon = "Driver={Sql Server};Server=HPSERVER;Database=jserp;UID=JSERP;PWD=JSERP"
Set conSqlProd = New ADODB.Connection
conSqlProd.CursorLocation = adUseClient
conSqlProd.Open strCon
找开记录集方式为：
strSel = "select username from sysuser where usercode='" & strUserId & "'"
Set recCont = New ADODB.Recordset
recCont.CursorLocation = adUseClient
recCont.Open strSel, consqlProd, adOpenKeyset, adLockPessimistic
多用户，某用户开始事务对记录集编辑时，其他用户打开记录集时出现"超时过期"错误！
至到事务结束，其他用户才能打开记录集！
各位专家，怎么解决？？？？