Dim DB As CLMeteoAppDBLocalita
DB.Initialize("meteoapp")
If DB.IsInitialized Then
Localita.Initialize
Dim MAL As CLMeteoAppLocalita
MAL.Initialize
MAL.DBOrder = "loc_localita"
Localita = DB.LoadCollection(MAL)
Cities.Initialize
For i = 0 To Localita.Size -1
MAL = Localita.GetValueAt(i)
Cities.Add(MAL.Localita & " (" & MAL.Provincia & ")")
Next
DB.Close
End If