不正确使用 DateValue ，替换

dt = DateValue(d, m, y) ' Error line 
dt = DateAdd("d", 1, dt) ' should be 17.09.2012.

与

dt = DateSerial(y, m, d) 
dt = DateAdd("d", 1, dt)

或

dt = 1 + DateAdd("d", 1, dt)