'in Class_Globals
Public SQL1 As SQLCipher
Public SQLDataBasePath As String
'in B4XPage_Created
nomedb ="miodb.xls"
SQLDataBasePath = xui.DefaultFolder
If File.Exists(SQLDataBasePath, nomedb) = False Then
SQL1.Initialize(SQLDataBasePath, nomedb, True,"password","")
CreateDataBase
Else
SQL1.Initialize(SQLDataBasePath, nomedbpaz, True,"password","")
End If