Scrivi in ogni riga

itmX.SubItems(1) = .Fields("DataApertura").Value & ""