uso sqlite al momento ma trovo limitato il recorset oltre che notare una certa lentezza sempre in microsoft surface
sqlite:
Dim sqlite As SQL
Try
sqlite.InitializeSQLite(File.DirApp,"lavagna.sqlite", False)
Dim rs As ResultSet
Dim query As String = "select DISTINCT team from item order by team ASC"
rs = sqlite.ExecQuery(query)
Dim mn As ContextMenu
mn.Initialize("")
bt.ContextMenu=mn
Do While rs.NextRow
Dim mc As MenuItem
mc.Initialize(rs.GetString2 (0),"btTeam")
mn.MenuItems.Add(mc)
Loop
rs.Close