在VB中执行存储过程!

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