VBA跑存储过程，运行无错，但无结果

王道与君

各位大神好，
   敬上！
   VBA入门水准。今日使用VBA运行MS SERVER的存储过程(主要是Update)，运行没有报错，但是查看MS SERVER并没有成功执行(该存储在SERVER可成功执行) 。
脚本为：
Public Const strcn = "provider=sqloledb;Server=*****;Database=***;Uid=***;Password=***; data source=****,****;"
Public strsql As Variant
sub  ss()
Dim i As Integer, j As Integer, m As Integer
Dim cnn As New ADODB.Connection
cnn.CommandTimeout = 500

strsql = " use **;  exec dbid.shema.pro_name '***','***','***'"
cnn.Open strcn
rs.Open strsql, cnn  ',1,3
end sub

这个测试在前期是能够成功执行的，可现在又闹脾气，不报错也后台也没有相应的结果。
请各位大神，诊断诊断。
谢谢！

王道与君

求大神，诊断诊断····别沉了啊

microyip

把你的use **写到存储里，然后strsql = "dbid.shema.pro_name '***','***','***'"，就直接运行了

王道与君

这似乎么有什么区别，难道只能传一句话到MS server中吗？

董秀梅

你好，我遇到同样的问题，请问你找到解决方法了吗