Sub Activity_Create(FirstTime As Boolean)
Dim MyCursor As Cursor
Dim MyDatabase As SQL
MyDatabase.Initialize(File.DirInternal, "new_database.db", True)
MyCursor=MyDatabase.ExecQuery("PRAGMA encoding;")
MyCursor.Position=0
Log(MyCursor.GetString("encoding"))
End Sub