Sub btnRun_Click
ProgressDialogShow("Running")
Try
Dim s As Long = DateTime.Now
tbl.LoadSQLiteDB(sql1, "select * from data", True)
Log(DateTime.Now - s)
Catch
ProgressDialogHide
Msgbox(LastException.Message, "Error")
End Try
ProgressDialogHide
End Sub