'updaten Dataset
    Public Sub dataUpdate(ByVal fo As Form, ByVal dSet As DataSet, _
            ByVal bs As BindingSource, ByVal da As SqlDataAdapter, ByVal n As _
            String)
 
        If dSet.HasChanges Then
            fo.Validate()
            bs.EndEdit()
            Try
                ' geänderte Daten vom DataSet in die Datenbank übertragen
                da.Update(dSet, n)
            Catch ex As Exception
                MessageBox.Show(ex.Message, "UPDATING")
            End Try
        End If
    End Sub

Salzburger