la data non va tra i simboli #.
Ti consiglio di eseguire qualcosa di questo tipo:

Set objRs = objCon.Execute(stringaSql)

Spero sia chiaro.