Sub JobDone(Job As HttpJob)
If Job.Success = False Then
ProgressDialogHide
Log("Error: " & Job.ErrorMessage)
Msgbox (Job.ErrorMessage, "Job Error")
Else
If Job.JobName = "DBRequest" Then
Dim result As DBResult = reqManager.HandleJob(Job)
Dim mapResult As Map = reqManager.GetRecsTable(result)
If mapResult.Size > 0 Then