OK molte grazie, per la seconda pero mi da errore--->

codice:
Eccezione non gestita di tipo "System.InvalidCastException" in microsoft.visualbasic.dll
Informazioni aggiuntive: Cast non valido da DBNull a Date.
io ho fatto questo:

codice:
        Dim Da As Date = read("Data")
        Dim Data As String = Da.ToString
        DateTimePicker1.Value = Data