Dato opbygning og visning

Dato formattering volder mig desværre mange udfordringer.

Jeg skal udfylde et datofelt ved at sammenstykke datoen af to strenge således str1= "#01/30/20" & me.FY &"#", hvor FY er en variabel der indeholder de sidste 2 cifre i årstallet (14,15,16 etc).   

Dette virker fint:
Dim Dato As Date
Dato = #1/30/2015#
MsgBox Dato

Men dette virker ikke:
Dim str1 As Variant
Dim Dato As Date
Str1= "#01/30/20" & me.FY &"#" 
Dato = str1
MsgBox Dato
vh OMN