If MyDataset.HasChanges = True Then
            If Me.txtBeladetag.Text = Nothing Then
                MsgBox("Es wurde noch kein Beladetag vergeben!", _
                  MsgBoxStyle.Critical, "Fehlende Eingaben")
                Exit Sub
            Else
                My.Settings.vBeladetag = Me.BELADETAGDateTimePicker.Text
                My.Settings.vEntladetag = Me.ENTLADETAGDateTimePicker.Text
                My.Settings.vENTZEITVON = Me.BELADETAGDateTimePicker.Text
                My.Settings.vENTZEITBIS = Me.BELADETAGDateTimePicker.Text
                'Aktualisieren der Auftrags-Kopfdaten
                Update_Auftrag()
'Aktualisieren der Auftrags-Posdaten
                Me.DAAuftrags_Pos.Update(MyDataset.TBDL_AUFTRAG_POS)
                MsgBox("Auftragsdaten wurden erfolgreich in der Datenbank" & _
                  "gespeichert!", MsgBoxStyle.Exclamation, "Erfolgsmeldung")
            End If
            Try
 
            Catch ex As Exception
                MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler beim" & _
                  "Update-Versuch")
            End Try
        End If
        Try
            Me.Cursor = Cursors.WaitCursor
 
            MyDataset.TBDL_AUFTRAG_KOPF.Clear()
            MyDataset.TBDL_AUFTRAG_POS.Clear()
            Me.DAAuftragskopf.Fill(MyDataset.TBDL_AUFTRAG_KOPF)
            Me.DAAuftrags_Pos.Fill(Me.MyDataset.TBDL_AUFTRAG_POS)
 
            Me.Cursor = Cursors.Default
        Catch ex As Exception
            MsgBox("Fehler beim Aktualisieren der Daten" & vbCrLf & ex.Message, _
              MsgBoxStyle.Critical)
            Me.Cursor = Cursors.Default
        End Try