Sub Activity_Create(FirstTime As Boolean)
If SQL1.IsInitialized = False Then
Msgbox("x","y")
SQL1.Initialize(File.DirDefaultExternal, "meds", True)
End If
activity.LoadLayout("pill.bal")
Dim Cursor As Cursor
Cursor = SQL1.ExecQuery("SELECT name FROM main")
For i = 0 To Cursor.RowCount - 1
Cursor.Position = i
spnrName.Add(Cursor.GetString("name"))
Next
Cursor.Close
End Sub