iFix Lable Caption Refresh

I am trying to set the caption of a label
before doing a test of a connection to an SQL server

Private Sub SQL_Test_Button_Click()
Const NVGeneralBottleRecordConnString = "Provider=SQLNCLI10.1;Data Source=FASDB\FAS_MSSQLSERVER;Initial Catalog=BatchRecord;" & "User Id=SQLusrVb;Password=SQLusrVb1!"
Record_Str.Caption = "Please Wait, testing connection to SQL Server"
Record_Str.Refresh
TestConnectionToSqlServer (NVGeneralBottleRecordConnString)
End If
End Sub

However the caption is not updated until the call to the
TestConnectionToSqlServer has timed out
How do I get the caption to update before the call
Thanks

I dont use ifix but maybe put your caption update code in a separate function and call it before test server function

Your problem is that the VBA code is running in the same thread as workspace is using to update the UI. Put in another way, the UI will not be updated until the function is done executing or you manually tell VBA to process other events. You can tell workspace to process other events by adding a DoEvent after setting the label caption. Please note that DoEvent can make workspace crash if used incorrectly (it's fine in this case) so try not to use them too much.

Have you considered using VisiconX to connect to your database? IMO it will be a cleaner and solution without any - or very little - custom code.