Imports System.Data
 
Dim Quelle As String = CurDir() + "\adressen.mdb"
Dim Treiber As String = "Microsoft.Jet.OLEDB.4.0"
Dim objConnection As OleDb.OleDbConnection = New OleDb.OleDbConnection( _
  "Provider=" & Treiber & ";Data Source=" & Quelle)
Dim objDataAdapter As OleDb.OleDbDataAdapter
Dim objCommandBuilder As OleDb.OleDbCommandBuilder
Dim objDataSet As DataSet
Dim objDataView As DataView
 
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles MyBase.Load
objDataSet = New DataSet()
objConnection.Open()
'SQL Anweisung
objDataAdapter = New OleDb.OleDbDataAdapter("SELECT * FROM Tabelle1", _
  objConnection)
objDataAdapter.SelectCommand = New OleDb.OleDbCommand("SELECT * FROM Tabelle1", _
objConnection)
objCommandBuilder = New OleDb.OleDbCommandBuilder(objDataAdapter)
'DataAdapter füllen
objDataAdapter.Fill(objDataSet, "Tabelle1")
'DataView füllen
objDataView = New DataView(objDataSet.Tables("Tabelle1"))
'Ausgabe
Me.txtVorname.DataBindings.Add("Text", objDataView, "Vorname")
Me.txtNachname.DataBindings.Add("Text", objDataView, "Nachname")
End sub
 
Private Sub Save_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Save.Click
Dim dblPos As Integer
Try
dblPos = Me.BindingContext(objDataView).Position
      With objDataSet.Tables("Tabelle1").Rows(dblPos)
      	.Item("Vorname") = txtVorname.Text
            .Item("Nachname") = txtNachname.Text
            .Item("Postleitzahl1") = txtPLZ.Text
            .Item("Ort1") = txtOrt.Text
      End With
  	objDataAdapter.Update(objDataSet, "Tabelle1")
 Catch ex As Exception
    	MsgBox("Fehler: " & ex.Message, MsgBoxStyle.Information)
   Finally
   	objConnection.Close()
      objDataSet = Nothing
   End Try
   End Sub