Private Sub PostenEinfügen
  Dim AnzVersuche as integer = 0
  Dim Erfolg as boolean
 
  Do
    AnzVersuche = AnzVersuche + 1
 
    PostenEintragen(Auftragsnr, Losnr, Artikelnr, Kartonnr, Menge, Art, _
      Gerätenr, 1)
    Pause()
 
    Erfolg = AnzPosten(Art, Auftragsnr, Losnr, Kartonnr, 1) > 0          
  Loop Until Erfolg Or AnzVersuche >= 10
End Sub
 
Private Sub PostenEintragen(byval auftragsnr as string, byval losnr as string, _
  byval artikelnr as string, byval kartonnr as integer, byval menge as decimal, _
  byval art as integer, byval gerätenr as integer, byval meldungsnr as integer)
   Dim TaPosten As dsProduktionTableAdapters.PostenProdTableAdapter = Nothing
   Dim Schichtdatum As Date
   Dim Schichtnr As Integer
 
   Try
     TaPosten = New dsProduktionTableAdapters.PostenProdTableAdapter
 
     TaPosten.InsertQuery(art, gerätenr, auftragsnr, artikelnr, losnr, _
       kartonnr, meldungsnr, menge)
   Finally
     If TaPosten IsNot Nothing Then TaPosten.Dispose()
   End Try 
End Sub
 
Private Sub Pause
  Dim i, j As Integer
  Dim k As Double
 
  For i = 1 To 1000
    For j = 1 To 1000
      k = k + 1
    Next
  Next
End Sub
 
Private Function AnzPosten(byval art as integer, byval auftragsnr as string, _
  byval losnr as string, byval kartonnr as integer, byval meldungsnr as _
  integer) as integer
  Dim TaPosten As dsProduktionTableAdapters.PostenProdTableAdapter = Nothing
  Dim Anzahl As Integer = 0
 
  Try
    TaPosten = New dsProduktionTableAdapters.PostenProdTableAdapter
    Anzahl = TaPosten.AnzPosten(art, auftragsnr, losnr, kartonnr, meldungsnr))
  Finally
    If TaPosten IsNot Nothing Then TaPosten.Dispose()
  End Try
 
  Return Anzahl
End Function