The problem is your method of adding the date to the table. You are not adding leading zeros to single digit values, which the Dateparse function requires.
The simplest way is to add:
at the beginning of your application and replace
DateD&"."&DateM&"."&DateY
with
if you want to keep your method you could use Format()
Format(DateD,"D2")&"."&Format(DateM,"D2")&"."&DateY