selpart = "Select * from [Note] where [data] ='" & FormIniziale.Mydate & "'"