[VB] Valore nullo e formattazione di date

[w_t]

VB.NET:

        conn.Open()
        Dim comm As New OleDbCommand("SELECT * FROM Movimenti WHERE ID = " & Id & "", conn)
        Dim read As OleDbDataReader = comm.ExecuteReader
        read.Read()
        Dim Nome As String = read("Nome")
        conn.Close()

1)come mai se il campo della tabella non contiene Item mi da errore la query???

"Trovato valore nullo"

2)Come posso formattare una data di MySQL "2002-12-12" in Stringa da stampare ???

Dim Da As Date = read("Data_Oggi")
Dim Data As String = Da.ToShortDateString
DateTimePicker1.Value = Data

questo non mi funziona........