Adjuntar archivos con CDO.Message

[caam]

Estoy haciendo un programita que envie correos y que ademas adjunte archis, el problema es que no consigo que los adjunte, estoy utilizando el objeto CDO, mi codigo es el siguiente:


Dim objCDO


Set objCDO = Server.CreateObject("CDO.Message")

With objCDO

.To = strto
.From = strfrom
.Subject = strsubject
.HtmlBody = strbody

.AddAttachment "C:\tareas\finanzas2.doc"


.Send
End With
Set objCDO = Nothing

if(err.number=0)then
Response.Write("El mensaje fue enviado con exito")
else
Response.Write("¡ERROR! El correo no pudo ser enviado")
end if





El error que me manda es de que no encuentra la direccion del archivo , alguienme puede dar una buena solucion? siendo que la direccion del archivo esta correcta.