传入日期参数为什么会出错?

Question

vb程序
Set Param = Cmd.CreateParameter("@fixType", adChar, adParamInput, 50, fixType)
Cmd.Parameters.Append Param
Set Param = Cmd.CreateParameter("@typeno", adChar, adParamInput, 50, typeno)
Cmd.Parameters.Append ParamSet Param = Cmd.CreateParameter("@typename", adChar, adParamInput, 50, TypeName)
Cmd.Parameters.Append ParamSet Param = Cmd.CreateParameter("@buyDate", addbDate, adParamInput, 4, date)Cmd.Parameters.Append ParamSet Param = Cmd.CreateParameter("@fixDate", addbDate, adParamInput, 4, date)
Cmd.Parameters.Append ParamSet rs = Cmd.Execute()
存储过程
  create procedure hpczl_insert
(
 @fixType varchar(50),
 @typeno varchar(50),
 @typename varchar(50),
 @buyDate smalldatetime,
 @fixDate smalldatetime)
as 
 begin
   insert into hpczl(fixType,typeno,typename,buyDate,fixDate)
 values(@fixType,@typeno,@typename,@buyDate,@fixDate)
end
如果是字符就可以，日期类就不能，是不是日期传入格式不对！