You need to give more information !
What error do you get ?
The first run when there is no database the program runs OK.
The second time whwn the database does exist, you don't initialize the database !
I suppose that you copied the initialization of the database from the SQLiteLit1 project, but you didn't copy all you need.
You missed a part of the code in Activity_Resume.
Add in Activity_Resume:
Sub Activity_Resume
' If the database is not initialized we initialize it
If SQL1.IsInitialized = False Then
SQL1.Initialize(File.DirInternal, "persons.db", True)
End If
ContarEncuestas
End Sub
If you modify the database in another activity I suggest you to move
ContarEncuestas from Activity_Create to Activity_Resume to make sure that the display is updated.