Sub cmd()
Dim iCmd As ADODB.Command
Dim iRe&
Set iCmd = New ADODB.Command
With iCmd
.ActiveConnection = iConc '数据库连接字符串
.CommandType = adCmdStoredProc
.CommandText = "存储过程名"
.Parameters.Refresh '创建存储过程参数
.Parameters("@输入参数1") = "值1" '为参数赋值
.Parameters("@输入参数2") = "值2"
.Execute '执行存储过程
Debug.Print .Parameters("@输出参数1") '显示存储过程的执行结果
Debug.Print .Parameters("@输出参数2")
End With
End Sub