dataF = DateAdd("m", 1, Now)
dataF = Format(dataF, "yyyymm10")
msgbox dataF