If File.Exists(File.DirRootExternal, "MYDB") = False Then
File.Copy(File.DirAssets, "MYDB.DB", File.DirDefaultExternal, "MYDB.DB")
SQL1.Initialize(File.DirDefaultExternal, "MYDB.DB", True)
Dim SenderFilter As Object = SQL1.ExecQueryAsync("SQL", "SELECT * FROM TABELLA_TIPI", Null)
Wait For (SenderFilter) SQL_QueryComplete (Success As Boolean, rs As ResultSet)
If Success Then
...