Imports System.Data
Public Class frmDBAnsicht
    Inherits System.Windows.Forms.Form
    Dim objConnection As OleDb.OleDbConnection = New OleDb.OleDbConnection( _
      "Provider=Microsoft.Jet.OLEDB.4.0; " & "Data Source=D:\Eigene" & _
      "Dateien\Access Datenbanken\Galileo.mdb")
    Dim objDataAdapter As OleDb.OleDbDataAdapter
    Dim objDataSet As DataSet
    Dim objDataView As DataView
.
.
.
Private Sub butÄndern_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles butÄndern.Click
        Dim dblPos As Double
        Dim cb As OleDb.OleDbCommandBuilder = New OleDb.OleDbCommandBuilder( _
          objDataAdapter)
        dblPos = Me.BindingContext(objDataView).Position
        Dim objZeile = objDataSet.Tables("t_Kunden").Rows(dblPos)
        With objZeile
            .Item("Vorname") = CStr(txtVorname.Text)
            .Item("Zuname") = txtZuname.Text
            .Item("Straße") = txtStraße.Text
            .Item("PLZ") = txtPLZ.Text
            .Item("Ort") = txtOrt.Text
            .Item("Infopost") = chkInfopost.Checked
            If optFrau.Checked = True Then
                .Item("Geschlecht") = 1
            Else
                .Item("Geschlecht") = 2
            End If
        End With
        Me.Datensatz_Ändern(objDataView, New System.EventArgs)
        objDataAdapter.Update(objDataSet, "t_Kunden")
    End Sub
 
    Private Sub butAnhängen_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles butAnhängen.Click
        Dim objZeile As DataRow
        objZeile = objDataSet.Tables("t_Kunden").NewRow()
        Dim cb As OleDb.OleDbCommandBuilder = New OleDb.OleDbCommandBuilder( _
          objDataAdapter)
        With objZeile
            .Item("Vorname") = txtVorname.Text
            .Item("Zuname") = txtZuname.Text
            .Item("Straße") = txtStraße.Text
            .Item("Plz") = txtPLZ.Text
            .Item("Ort") = txtOrt.Text
            .Item("Infopost") = chkInfopost.Checked
            If optFrau.Checked = True Then
                .Item("Geschlecht") = 1
            Else
                .Item("Geschlecht") = 2
            End If
        End With
        objDataSet.Tables("t_Kunden").Rows.Add(objZeile)
        Me.Datensatz_Ändern(objDataView, New System.EventArgs)
        objDataAdapter.Update(objDataSet, "t_Kunden")
    End Sub