Dim cn As New ADODB.Connection
    Dim cm As New ADODB.Command
    cn.ConnectionString = "......."
    cn.Open
 
    With cm
        .ActiveConnection = cn
        .CommandType = adCmdStoredProc
        .CommandText = "test"
        .Parameters.Append .CreateParameter("test1", adChar, adParamInput, 10, "test")
        .Parameters.Append .CreateParameter("test2", adChar, adParamOutput, 20)
    End With
    
    Set rs = cm.Execute    MsgBox rs.Fields("U002").Value
    cn.Close储存过程如下:
CREATE PROC test @test1 varchar(10),@test2 varchar(20) output AS
declare @temp varchar(20)
begin
select * from test where AAAA=@test1
end 
'====================================test2是你表中的一个字段名