vba 调用SQL SERVER 存储过程失败，提示运行时错误……

提示：

运行时错误，'2147217865（80040e37）':

对象名'Ddanganmx'无效。

VBA 代码如下：

Private Sub Com_zhcx_Click()
'=====档案综合查询查询按钮过程===================

Dim Str1 As Long
Dim sqlStr, SQLjiekuanren, SQLdanwei, SQLleixing, Orderby As String
Dim Strjiekuanren, Strdanwei, Strleixing As String

Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim connStr As String
    
SQLuser = "sa"
userPWD = "123123"
    
connStr = SQLconnectStr()   ‘调用连接字符串函数
conn.Open connStr
conn.CursorLocation = adUseClient

’将需要查询的内容传递给变量
Strjiekuanren = Nz(Me.Zhcx_qymc, "")
Strdanwei = Nz(Me.Combo_cxfkdanwei, "")
Strleixing = Nz(Me.Combo_leixing, "")
‘调用存储过程的语句
sqlStr = "exec usp_XDSQL_ChaXunOffen '" & Strjiekuanren & "','" & Strdanwei & "','" & Strleixing & "'"

Set Me.List_zhcx.Recordset = rs

………………
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
End Sub