Vba-Access-Problème de date

Bonjour,
Merci de lire ce post :)

En fait, je récupère une date de ma table via une requête : variable dateuh
De même, je récupère un numéro entre 0 et 10 de cette même table : variable numero

Je dois remplacer le mois de dateuh par numero. (par du vba)

Je sais comment rajouter des jours, des mois, des années (DateAdd) mais pas comment REMPLACER le mois sans faire de calcul.
Aucun calcul ne doit être fait, c'est juste du remplaçage :s



--------------------------------------------------------------------------------

Code:
dim dateuh as date
dim datefinale as date
dim numero as integer
dim intervaltype as string
'dateuh et numero sont remplis par mes requetes sql

intervaltype = "m"
datefinale = DateAdd(intervaltype, numero, dateuh)

--------------------------------------------------------------------------------



Ce code, fonctionnel, rajoute numero à dateuh mais ne le REMPLACE pas :'(

En ésperant avoir été clair et avoir posté au bon endroit !
Si vous avez une idée, dîtes là ^^
Mici d'avance :)