ho risolto, la stringa di selezione va cosi composta

"select * tabella where data =" & mydata.ToOADate