Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("Layout1")
Dim dbName="vicevi.db"
If FirstTime Then
Dim db=DBUtils.CopyDBFromAssets(dbName)
SQL1.Initialize (db, dbName, True)
End If
'If FirstTime Then
' SQL.Initialize(File.DirRootExternal, dbName, True)
'End If
Dim ListView1 As ListView
ListView1.Initialize("ListView1")
DBUtils.ExecuteListView(SQL1, "SELECT text FROM vic", Null, 0, ListView1, False)
End Sub