cur = sql1.ExecQuery2("SELECT * FROM tblvoc where subid=?",Array As String(act_lessons.val))
For i = 0 To cur.RowCount - 1
cur.Position = i
Dim m As Map
m.Initialize
m.Put("id",cur.GetInt("id"))
m.Put("word",cur.GetString("word"))
m.Put("pronunciation",cur.GetString("pronunciation"))
m.Put("meaning",cur.GetString("meaning"))
m.Put("EnExample",cur.GetString("EnExample"))
m.Put("FaExample",cur.GetString("FaExample"))
m.Put("sound",cur.GetString("sound"))
m.Put("likee",cur.GetInt("likee"))
itemlist.Get(m)
Next