code not working in debug mode

Have the following code, which shows the state of all databases in the app. As this is displayed in a SQL edittext I don't want it to be formatted as SQL as that will make no sense. This is done with the line: cMP.cSQLEdit.bNoEDTFormatting = True Sub ShowDatabasesStates Dim i As Int...