Dim rs As ResultSet = sql.ExecQuery("SELECT coalesce(via,"") as via, coalesce(nome_azienda,"") as cliente, coalesce(citta,"") as citta, coalesce(note,"") as note FROM sopralluoghi")
Do While rs.NextRow
Dim row(4) As Object
row(0) = rs.GetString("cliente")
row(1) = rs.GetString("via")
row(2) = rs.GetString("citta")
row(3) = rs.GetString("note")
Data.Add(row)
Loop
rs.Close