Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles TextBox1.TextChanged
 
Dim jetzt As Date = Now
        While DateDiff(DateInterval.Second, jetzt, Now) < 2     'Wartezeit in 
        ' Sekunden
            Application.DoEvents()
        End While
'-----------------------------------------------
'---> Hier folgt eine DB-Abfrage...
'-----------------------------------------------
 
        If orderid <> abfrage_db Then
            MessageBox.Show("Ungültige Auftragsnummer")
            TextBox1.Text = ""
            antwort_db = ""
            orderid = ""
            Exit Sub
 
        End If