Private Sub SaveUpdateDelete()
 
        Try
            bs.EndEdit()
        Catch ex As Exception
            MessageBox.Show(ex.Message, "Fehler")
        End Try
 
 
        Dim DataSetChangeLog As DataSet = ds.GetChanges()
        If DataSetChangeLog IsNot Nothing Then
            Try
                setRecords(DataSetChangeLog)
                ' Die per Referenz zurückgegebenen Datensätze werden mit dem 
                ' Original-DataSet zusammengeführt:
                ds.Merge(DataSetChangeLog)
                ds.AcceptChanges()
                ' MessageBox.Show("Datenbank wurde aktualisiert!", "Erfolg")
            Catch ex As Exception
                ds.RejectChanges()
                MessageBox.Show(ex.Message, "Fehler")
            End Try
        End If
    End Sub

Gruss
VIVAX

}
}
}

1:0 für Visual Basic.NET