LstDati.Clear
Dim Cursor1 As Cursor
Dim txt As String
SQL_Lettura.Initialize(File.DirAssets,"FrsPa.db",False)
txt = "SELECT * FROM Parolando WHERE lenParola = " & Prima & " or lenParola = " & Seconda & " order by lenParola"
Cursor1 = SQL_Lettura.ExecQuery(txt)
.....
......
......
.....