从 SQL 存储过程中检索 VBA 中的 output

Question

Function TestConnection()
    Set cnn = New ADODB.Connection
    cnn.ConnectionString = "My Connection String;"

    cnn.Open cnn.ConnectionString

    Set cmd = New ADODB.Command
    cmd.ActiveConnection = cnn
    cmd.CommandType = adCmdStoredProc
    cmd.CommandText = "spPrintSerialNo"

    With cmd
        .Parameters.Append .CreateParameter("@PartNo", adVarChar, adParamInput, 30, "222229")
        .Parameters.Append .CreateParameter("@Qty", adTinyInt, adParamInput, 1, 24)
        .Parameters.Append .CreateParameter("@WorkCell", adVarChar, adParamInput, 50, "AMV")
    End With
End Function

我正在尝试在 VBA 中运行该过程，它可以工作。 但是，我很难找出如何以消息框形式查找和显示此过程的 output。 我试过记录集没有成功。 我只想知道如何找到这个程序的output并显示在Excel中？