I don't understand where the problem is.
My code blog
Sub Service_Create
CurrentIndex = -1
RowNumber = 0
EditMode = "Add"
FilterQuery = ""
flagFilterActive = False
FilterBooleanOperator = "AND "
If File.Exists(File.DirInternal, "SportExpertDB.db") = False Then
File.Copy(File.DirAssets, "SportExpertDB.db", File.DirInternal, "SportExpertDB.db")
SQL1.Initialize(File.DirInternal, "SportExpertDB.db", True)
Else
SQL1.Initialize(File.DirInternal, "SportExpertDB.db", True)
End If
End Sub