调用SQL存储后有参数返回,应该怎么赋值?

Question

MSDN的例子：
Dim ADOCmd As New ADODB.Command
Dim ADOPrm As New ADODB.Parameter
Dim ADORs As ADODB.Recordset'....
Set ADOCmd.ActiveConnection = ADOCon
With ADOCmd
    .CommandType = adCmdStoredProc
    .CommandText = "ADOTestRPE"
End WithsParmName = "Output"
Set ADOPrm = ADOCmd.CreateParameter(sParmName, adInteger, adParamOutput)
ADOCmd.Parameters.Append ADOPrm
ADOCmd.Parameters(sParmName).Value = 999Set ADORs = ADOCmd.Execute
'.....Debug.Print "Output: " & ADOCmd.Parameters("Output").Value

Answer 1

我写了如下的代码：
Private Sub Form_Load()
    Dim conn As New Connection
    Dim conm As New Command
    Dim pr1 As New parameter
    Dim pr2 As New parameter
    Dim pr3 As New parameter
    
On Error GoTo err
    conn.ConnectionString = "连接代码"
    conn.Open
    Set conm.ActiveConnection = conn
    conm.CommandType = adCmdText
    conm.CommandText = "exec chaxun ?,?,?"
    
    Set pr1 = conm.CreateParameter("@kahao", adChar, adParamInput, 19, "2234223422342234")
    Set pr2 = conm.CreateParameter("@gdx", adInteger, adParamOutput)
    Set pr3 = conm.CreateParameter("@xm", adChar, adParamOutput，8)
    conm.Parameters.Append pr1
    conm.Parameters.Append pr2
    conm.Parameters.Append pr3
    conm.Execute
        
    Debug.Print pr2，pr3
    
    conn.Close
    
On Error GoTo 0
Exit Sub显示的结果是“Null          Null”，没有返回正确结果。
请问是什么原因？