sql1.Initialize(File.DirApp,"user.db",False)
Dim Cursor1 As ResultSet
Dim userlist As List
userlist.Initialize
Cursor1 = sql1.ExecQuery("SELECT col1, col2,col3, col4 FROM table1")
Do While Cursor1.NextRow
userlist.Add(Cursor1.GetString("col2"))
Log ( Cursor1.GetString("col2"))
Loop
Cursor1.Clos