我如何用VB调用SQL中已经写好的存储过程呢?

Question

Dim cm As New Command ' ¶¨ÒåÃüÁî¶ÔÏóDim inparam As Parameter
Dim outparam As Parameter
 
With cm
   Set .ActiveConnection = gADO
   .CommandText = "SP_GetNextID"
   .CommandType = adCmdStoredProc
   Set inparam = .CreateParameter("@Table_No", adInteger, adParamInput, , intNo)
   Set outparam = .CreateParameter("@id", adInteger, adParamOutput)   .Parameters.Append inparam
   .Parameters.Append outparam
   .Execute
End With
 
GetStoreProNextID = cm.Parameters.item(1).ValueSet cm = Nothing