Подскажите,пожалуйста.Связываюсь с сервером-вот урезанный код:

Cmd.ActiveConnection = "DSN=prom2001;UID=sa"
Cmd.CommandText = "Цена"
Cmd.CommandTimeout = 15
Cmd.CommandType = adCmdStoredProc
Set prm = Cmd.CreateParameter("КатегорияЦен", adChar, adParamInput, 7, 0)
Cmd.Parameters.Append prm
prm.Value = Text2.Text
Set prm = Cmd.CreateParameter("Товар", adChar, adParamInput, 7, 0)
Cmd.Parameters.Append prm
prm.Value = Text3(0).Text
Set prm = Cmd.CreateParameter("Дата", adDate, adParamInput, 7, 0)
Cmd.Parameters.Append prm
prm.Value = Text4(1).Text
Set rs = Cmd.Execute()
Text1.Text = rs(0)

Доходит до получения даты и …[Microsoft][ODBC SQL Server Driver] Optional feature not implemented
В чем тут дело? Почему только дата?

Уже нашел в MSDN:

This is because SQL Server does not support the adDBDate datatype. To correct this problem, change the datatype of the @theDate parameter to adDBTimeStamp.