存储过程没有执行可选特性

[cqs76]

Dim con As New ADODB.Connection
Dim comm As New ADODB.Command
Dim rst As New ADODB.Recordset

Dim sdate As String
sdate = Now()
con.Open "driver={sql server};server=aa\one_sql;database=金字塔项目;uid=sa;pwd=7766a"
comm.ActiveConnection = con

comm.Parameters.Append comm.CreateParameter("@parIdentify", adChar, adParamInput, 10, 8456799999#)
comm.Parameters.Append comm.CreateParameter("@parAmount", adCurrency, adParamInput, 3, 6548)
comm.Parameters.Append comm.CreateParameter("@parNote", adChar, adParamInput, 2, "kk")
comm.Parameters.Append comm.CreateParameter("@parDate", adDBDate, adParamInput, , sdate)

comm.CommandText = "insertSale "
comm.CommandType = 4
comm.Execute

报告说没有执行可选特性，我也不知道怎么改！

[dddd8888]

你的存储过程能不能贴出来

[cqs76]

等了三天了，分给你吧！