Tra la data e l'ora vaunospazion non il '.'
DataCompleta = Data & " " & Ora