title: server busy error message vb.net
body: <p>I get this error. I can not catch it where it comes from. All methods made with try catch but still I get this error from time to time. I used code: </p>
  
  <pre><code>    Private Sub add2ComboBox_called(ByVal text As String)
      Try
          If Me.InvokeRequired Then
              Dim args() As String = {text}
              Me.Invoke(New Action(Of String)(AddressOf add2ComboBox_called), args)
              Return
          End If
          ComboBox_called.Items.Add(text)
      Catch ex As Exception
          log_it(ex.StackTrace)
      End Try
  End Sub
  </code></pre>
  
  <p>and also this one:</p>
  
  <pre><code>Public Sub clear_do_not_open()
      Dim FILENAME As String = path &amp; "\DO_NOT.OPEN"
      Dim index As Integer
      Try
          Using fs As New IO.FileStream(FILENAME, IO.FileMode.Truncate, IO.FileAccess.Write, IO.FileShare.ReadWrite), _
                tl As New TextWriterTraceListener(fs)
              index = Trace.Listeners.Add(tl)
              Trace.Write("")
              Trace.Listeners(index).Flush()
              Trace.Flush()
          End Using
          Trace.Listeners.RemoveAt(index)
      Catch ex As Exception
          log_it(ex.StackTrace)
      End Try
  End Sub
  </code></pre>
  
  <p>How do I make this to press Retry by default if it appears? Wait for a second and press Retry again? If not like this then how do I know that this message pops up? If catch the moment it shows up I could then just restart the program or send an email to myselt so I could come to PC where program runs and I could handle it. Now message pops up and program stops while its on. </p>
  
  <p><img src="https://i.stack.imgur.com/8AwYC.png" alt="enter image description here"></p>