selpart = "Select * from [Note] where [data] ='" & Mydate & "'"
prova così