Function UPDATE(ByVal Fields() As String, ByVal Values() As String, ByVal _
  WhereField As String, ByVal WhereValue As String, ByVal Table As String)
  ' UPDATE Funktion der DB-Klasse
 
  Dim SQL as String
  ' ... UPDATE-SQL zusammenbasteln
 
  ' Auführen
  If con.State = ConnectionState.Closed Then con.Open()
  Dim cmd = New OleDbCommand(SQL, con)
  Dim iAffRows As Integer = cmd.ExecuteNonQuery
  con.Close()
  Return iAffRows
 
End Function