If SQL.IsInitialized Then SQL.Close
Try
SQL.Initialize(Dir, FileName, False)
DBUtils.ExecuteListView(SQL, "SELECT name FROM sqlite_master WHERE type = 'table'", Null, 0, lstTables, False)
lblDatabase.Visible = True
lblDatabase.Text = "Database: " & FileName
lblChooseTable.Visible = True
lblBasic4android.Visible = False
Label2.Visible = False
Catch
ToastMessageShow("Error loading database.", True)
lblDatabase.Visible = False
lblChooseTable.Visible = False
EndTry