Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As _
                 System.EventArgs) Handles btnAdd.Click
    ModifyDatabase("Add")
  End Sub

  Private Sub btnEdit_Click(ByVal sender As System.Object, ByVal e As _
                 System.EventArgs) Handles btnEdit.Click
    ModifyDatabase("Edit")
  End Sub

  Private Sub btnDelete_Click(ByVal sender As System.Object, ByVal e As _
                  System.EventArgs) Handles btnDelete.Click
    ModifyDatabase("Delete")
  End Sub

  Private Sub ModifyDatabase(ByVal TryingThis As String)
    ' Przeznaczenie: Ta procedura dokonuje aktualizacji całej bazy danych.
    Try
      OleDbDataAdapter1.Update(DataSet1)
    Catch ThisEx As Exception
      MessageBox.Show("Error during " & TryingThis & ": " & _
                      ThisEx.ToString)
    End Try
  End Sub
