SQl.Initialize(File.DirRootExternal, Main.dato, False)
intCount = SQl.ExecQuerySingleResult("SELECT COUNT(*) FROM museum WHERE city IS NOT NULL")
Log(intCount)
Dim curr As Cursor
curr = SQl.ExecQuery("SELECT city, naam FROM museum ORDER BY city <> Null Asc")
For i = 0 To intCount -1
curr.Position = i
naam = curr.GetString("city")
If naam <> Null Then
bm(i) = naam
Log(i)
Log(bm(i))
'''' Dim content As String = $""$
'''' CLV1.Add(CreateItem(CLV1.AsView.Width, naam, naam, content), "")
End If
Next