在vb中调用存储过程（SQL Server）时，对于Numeric类型数据（Input or Output）怎样处理?

Question

调用時input參數用cdbl()轉化一下
保存output參數的變量定義成single or double

Answer 1

luckysusan(海闊天空) :
    你好！能否用代码写出来

Answer 2

存储过程 :
CREATE PROCEDURE tt  
@TT numeric(13,4)
 ASDim adoCMD As New ADODB.Command
With adoCMD
  Set .ActiveConnection = adoConn
  .CommandType = adCmdStoredProc
  .CommandText = "tt"
  .Parameters.Append .CreateParameter("@tt", adNumeric, adParamInput, , CDbl(3))
  .Execute   '执行出错
  While .Parameters.Count > 0
    .Parameters.Delete 0
  Wend
End With
Set adoCMD = Nothing
请问参数类型怎么写，长度是多少