' Here declare and open SQL1 Sqlite DB
Dim lstTexts As List
lstTexts.Initialize
Dim Cursor As ResultSet
Cursor = SQL1.ExecQuery("SELECT YourFieldName FROM YourTableName")
Do While Cursor.NextRow
lstTexts.Add(Cursor.GetString(YourFieldName))
Loop
Cursor.Close
Spinner1.SetListItems(lstTexts)