Sub Activity_Create(FirstTime As Boolean)
File.Copy(File.DirAssets,"bond.db",File.DirInternal,"bond.db")
If SQLCipher1.IsInitialized = False Then
SQLCipher1.Initialize(File.DirInternal,"bond.db",False,DBPASSWORD,"")
Dim Cursor As Cursor
Cursor = SQLCipher1.ExecQuery ("PRAGMA cipher_migrate") '<==== only enter this line
Log("Execute SELECT query here.")
Cursor = SQLCipher1.ExecQuery("SELECT * FROM transactions")
Cursor.Position =0
Msgbox(Cursor.GetString("transaction_no"), "")
End If
End Sub