【急等】Excel VBA 调用oracle带参数的存储过程时提示“运行时错误 -2147467259 （80004005）自动化错误”

Public Function ConnOra(OraID, OraUsr, OraPwd, nbid)
    Dim n As Long   '这个取存储过程的返回参数
    Dim str As String
    Dim cn As ADODB.Connection
    Set cn = New ADODB.Connection    Dim rs As ADODB.Recordset
    
    Dim cmd As ADODB.Command
    Set cmd = New ADODB.Command    Dim param As ADODB.Parameter
    Dim Strnb As String
    Strnb = " '" & nbid & " '"
    'Strnb = nbid
    str = "Provider = MSDAORA.1;Password=" & OraPwd & _
        ";User ID=" & OraUsr & _
        ";Data Source=" & OraID & _
        ";Persist Security Info=True"
          
    
    cn.CursorLocation = adUseClient
    cn.Open str
    
   
    Set cmd = New ADODB.Command
    cmd.ActiveConnection = cn
    cmd.CommandText = "UPDATE_ENB_ALL_IP"   '存储过程UPDATE_ENB_ALL_IP(NB_INFO in varchar2)
    cmd.CommandType = adCmdStoredProc
    '这个是输入参数
    Set param = cmd.CreateParameter("@NB_INFO", adVarChar, adParamInput, 10, Trim(Strnb))
    cmd.Parameters.Append param
    '这个是输出参数
    Set param = cmd.CreateParameter("@n", adCurrency, adParamOutput)
    cmd.Parameters.Append param
    
    Set rs = cmd.Execute  '执行到这里就报错了%>_<%
    
    'n = cmd.Parameters("@n")
    MsgBox Err.Description
    
    Set rs = Nothing
    Set cmd = Nothing
    Set cn = NothingEnd Function