codice:
try
   
   dim res As OleDbDataReader = comm.ExecuteReader()
   do while res.read()
      DataOrdine = Res("Data") & ""
   loop
   res.close()

Catch ex As Exception
   MsgBox(ex.Tostring & " " & ex.Message )
End Try

prova così
Verifica la tipologia di variabile di DataOrdine ed il tipo di campo 'Data'
La scelta di fare un ciclo while dipende molto anche dalla query SQL con la quale interroghi il database: se questa query certamente estrae un'unica riga, allora il ciclo non serve