do while (objDataReader.Read())
'--variabile che serve per creare le righe
Dim r As New TableRow()
Dim id As New TableCell()
id.Controls.Add(New LiteralControl(objDataReader.item("idviaggio")))
Dim dal As New TableCell()
dal.Controls.Add(New LiteralControl(objDataReader.item("dal")))
Dim al As New TableCell()
al.Controls.Add(New LiteralControl(objDataReader.item("al")))
Dim loc As New TableCell()
loc.Controls.Add(New LiteralControl(objDataReader.item("localita")))
r.Cells.Add(id)
r.Cells.Add(dal)
r.Cells.Add(al)
r.Cells.Add(loc)
Table1.Rows.Add(r)
Table1.BackColor = "#C0C0C0"
loop