代碼：
Private Sub Form_Load()
If rsMain Is Nothing Then Set rsMain = New ADODB.Recordset
rsMain.Open "Select a.* ,b.MingCheng from ecfBaoZhuangDiGao a left join ecfhuohao b on a.huohao=b.huohao", envEcf.cnnEcf, adOpenKeyset, adLockOptimistic
Set grdmain.DataSource = rsMain
Set rsZZ = New ADODB.Recordset
Set rsXX = New ADODB.Recordset
rsZZ.Open "SELECT DaiMa 代碼,GUIGE AS 紙質,ZhiZhiMing as 名稱 FROM material_user.dbo.ecmZhiZiDaiMa where PoUse=1 ORDER BY guige", envEcf.cnnEcf, adOpenStatic, adLockReadOnly
rsXX.Open "SELECT HNO AS 箱型代碼, HNAME AS 箱型名稱 FROM material_user.dbo.ecmZhiXiangLeiXing ORDER BY sihua DESC, hname", envEcf.cnnEcf, adOpenStatic, adLockReadOnly
End Sub
問題：
先按順序執行rsmain.open可以通過，然後再執行到rsZZ.Open和rsXX.Open出錯．
反過來，將rsZZ.Open和rsXX.Open放前面執行也沒有問題，再執行rsmain.open卻又出錯了．
提示都是同樣的錯誤代碼：
run time error 2147467259(80004005) 連線失敗
可以知道的是，這些語句單獨執行都可以，但像現在放在一起就出問題了，而且是突然之間出的問題，之前一直可以執行的，而且也沒有修改過．．
請各位高手幫忙．謝謝！！！！
uj5u.com熱心網友回復：
如果代碼沒有問題，是不是數據庫的問題呢？轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/130485.html