Private Sub btnUpdate_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles btnupdate.Click
        OleDbDataAdapter1.Update(Zugriff1)
        MessageBox.Show("Änderungen erfolgreich gespeichert!")
    End Sub