Optional Feature Not Implemented

I need some help...
I'm trying to execute a stored procedure and I'm getting this message

Run-Time Error '-2147217887 (80040e21)':

[Microsoft][ODBC SQL Server Driver]Optional feature not implemented

Here is the code:
Public Function D2L(sconnect As Variant, dDate As Variant) As Variant
Dim rsDate As ADODB.Recordset
Dim cmdDate As ADODB.Command
Dim prmDate As ADODB.Parameter

Set cmdDate = New ADODB.Command
Set ADOConn = New ADODB.Connection

ADOConn.Open sconnect

Set cmdDate.ActiveConnection = ADOConn
cmdDate.CommandText = "dbo.UP_CVRT_DATE_TO_LONG"
cmdDate.CommandType = adCmdStoredProc

Set prmDate = New ADODB.Parameter
prmDate.Type = adDate
'prmDate.Size = 32
prmDate.Direction = adParamInput
prmDate.Value = dDate
cmdDate.Parameters.Append prmDate

Set rsDate = cmdDate.Execute()

Thanks in advance for any responses...