VBA调用带参的存储过程，返回数据不成功

[chrissky2006]

Public Sub 引入工价()
Dim strcon As String
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim strsql As String
On Error Resume Next
strcon = "Driver={SQL Server};Server=192.168.107.243;UID=sa;PWD=CHAC@123;DataBase=UFDATA_002_2018"
cn.Open strcon
Dim rowxh As Integer,ws As Worksheet
Set ws = Sheets("明细")
ws.Activate
For rowxh = 4 To Rows.Count
strsql = "exec user_getjiagongprice '" & Trim(Cells(rowxh, 6).Value) & "','" & Trim(Cells(rowxh, 9).Value) & "';"
rs.Open strsql, cn, adOpenStatic, adLockBatchOptimistic
ws.Cells(rowxh, 11).Value = rs.Fields(0).Value
rs.Close
Next
Set rs = Nothing
cn.Close
Set cn = Nothing
End Sub
请问各位大仙，这个过程执行不成功，我调试了下发现 rowxh的值一直为0，不是应该初始值为4吗？这是什么原因啊？

[chrissky2006]

有人吗？在线等

[Jerry99887766]

ADODB调用procedure 不能用那个判断结果，只能通过 recordset.State 来判断