With cnn
            .ActiveConnection = cn
             .CommandText = "SP_ONE"
             .Prepared = False
             .CommandType = adCmdStoredProc
             .Parameters.Append .CreateParameter("ID", adChar, adParamInput, 10, id)
             .Parameters.Append .CreateParameter("name", adChar, adParamOutput)
             .execute
         End With   name= cnn.Parameters("name") '就可得到回调的值