Dim DataSel As Date = "8:00:00"

While True
Dim NuovoOrario as Date = New TimeSpan(DataSel.Hour, DataSel.Minute, 0).Add(New TimeSpan(0, 30, 0)).ToString
Debug.Print(NuovoOrario) 'al posto di print metti il codice per aggiungere la DataRow e la query che va leggere le informazioni di  quell'orario sul database
DataSel = NuovoOrario

If NuovoOrario = CDate("24:00:00") Then Exit While
End while