SQL - Parametros en Store Procedures

Saludos

Que tal, miren tengo el siguiente problema, necesito pasar como parametro a un Store Procedure la fecha del sistema, me permite crearlo, pero cuando lo quiero ejecutar me manda un error:

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

Asi es como estoy tratando de pasar el parametro:

fecha = Format(CDate(Date), "dd/mm/yy")
Set prm = Cmd.CreateParameter("@fecha", adDate, adParamInput, , fecha)
Cmd.Parameters.Append prm
Cmd.Execute

Pero me manda el error mencionado arriba.

Solicito su ayuda por favor...

Porque no intentas esto
set cmComando = new command
set Rs = new recordset
rs.cursorlocation = aduseclient
fecha = Format(CDate(Date), "dd/mm/yy")
with cmComando
.activeconnection = 'TuConexion activa
.commandtype = adstoreproc
.commandtext = "Nombre sp"
.parameters("@i_param_entrada").value = fecha
end with
set rs = cmComando.execute