Prueba con el otro valor, el adDBTimeStamp (135) Mira la lista que te dí antes. Como ves es un problema de tipo. No cambies nada más. Estamos cerca
Otra cosa: Cambia esto
Recordset1__MMColParam = Year(hoy) & Month(hoy) & Day(hoy)
por esto
Recordset1__MMColParam = Now()
if Weekday(Recordset1__MMColParam) = 1 then ' es Domingo
Recordset1__MMColParam = dateAdd("d", 1, Recordset1__MMColParam)
elseif Weekday(Recordset1__MMColParam) = 7 then ' es Sabado
Recordset1__MMColParam = dateAdd("d", 2, Recordset1__MMColParam)
end if
Para dejarlo tal y como preguntaste en el inicio de este tema. Tambien porque CreateParameter lo entenderá mucho mejor.
Un saludo