Private Sub TSRefresh_Click_1(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles TSRefresh.Click
        Try
            'Versuch, die Datenquelle zu aktualisieren.
            Me.UpdateKONFIGURATION()
            MsgBox("Die Änderungen wurden erfolgreich in der Datenbank" & _
              "gespeichert", MsgBoxStyle.Information)
        Catch eUpdate As System.Exception
            System.Windows.Forms.MessageBox.Show(eUpdate.Message)
        End Try
    End Sub
 
    Public Sub UpdateKONFIGURATION()
        'Ein neues DataSet erstellen, das die Änderungen enthält, die im 
        ' Haupt-DataSet vorgenommen wurden
        Dim objDataSetChanges As MONITOR.DSFORT = New MONITOR.DSFORT
        'Alle aktuellen Bearbeitungen anhalten.
        Me.BindingContext(DSFORT.TBFORT_KONFIGURATION).EndCurrentEdit()
        'Änderungen abrufen, die am Haupt-DataSet vorgenommen wurden.
        objDataSetChanges = CType(DSFORT.GetChanges, MONITOR.DSFORT)
        'Prüfen, ob Änderungen durchgeführt wurden.
        If (Not (objDataSetChanges) Is Nothing) Then
            Try
                'Es müssen Änderungen vorgenommen werden. Versuchen Sie, die 
                ' Datenbank durch
                'Aufrufen der Update-Methode mit Übergabe des DataSet und 
                ' anderer Parameter zu aktualisieren.
                Me.UpdateDataSource(objDataSetChanges)
                DSFORT.Merge(objDataSetChanges)
                DSFORT.AcceptChanges()
            Catch eUpdate As System.Exception
                'Fehlerbehandlungscode hier hinzufügen.
                Throw eUpdate
            End Try
            'Code hinzufügen, um das zurückgegebenen DataSet auf Fehler zu 
            ' überprüfen,
            'die möglicherweise in die Error-Eigenschaft des Row-Objekts 
            ' gespeichert wurden.
        End If
 
    End Sub
 
    Public Sub UpdateDataSource(ByVal ChangedRows As MONITOR.DSFORT)
        Try
            'Die Datenquelle muss nur dann aktualisiert werden, wenn Änderungen 
            ' ausstehen.
            If (Not (ChangedRows) Is Nothing) Then
                'Verbindung öffnen.
                OracleConnection.Open()
                'Versuch, die Datenquelle zu aktualisieren.
                DAKONFIGURATION.Update(ChangedRows)
            End If
        Catch updateException As System.Exception
            'Fehlerbehandlungscode hier hinzufügen.
            Throw updateException
        Finally
            'Verbindung schließen, egal ob die Ausnahme ausgelöst wurde oder 
            ' nicht.
            Me.OracleConnection.Close()
        End Try
 
    End Sub