Excel Vba Initialize Date Variable Sql