Problemas com dateadd

Olá pessoal, tenho uma função em um site que desenvolvi que adiciono alguns dias a alguma data, mas o que começou a acontecer é, ao invés de ele adicionar dias, ele esta trocando e adicionando meses...

Vejam o código:

Function DataAdicional(DataAtual,Qtd_dias)
NovaData = DateAdd("d",DataAtual,Qtd_dias)
DataAdicional = NovaData
End Function

valor_data = formatdatetime(DataAdicional(cdate(data),"1"), vbshortdate)
Neste caso eu uso a variavel valor_data em um insert ou update usando banco de dados access e servidor windows 2003 server.

Alguém sabe o que pode estar acontecendo ?

Xavier