Imports System.Data
Public Class Form1
 
    Dim objConnection As OleDb.OleDbConnection = New _ OleDb.OleDbConnection( _
      "Provider=Microsoft.Jet.OLEDB.4.0; " & "Data Source=" & _
      Application.StartupPath & "\Main\Datenbanken\ArchivDB.mdb")
    Dim objDataAdapter As OleDb.OleDbDataAdapter
    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
        objDataView = Nothing
        objDataSet = New DataSet()
        objConnection.Open()
        objDataAdapter = New OleDb.OleDbDataAdapter("SELECT * FROM Archivakte", _
          objConnection)
        objDataAdapter.Fill(objDataSet, "Archivakte")
        objDataView = New DataView(objDataSet.Tables("Archivakte"))
        With Me
            .TextBox1.DataBindings.Add("Text", objDataView, "Titel")
        End With
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim dblPos As Double
        dblPos = Me.BindingContext(objDataView).Position
        With objDataSet.Tables("Archivakte").Rows(dblPos)
            .Item("Titel") = TextBox1.Text
        End With
        objDataAdapter.Update(objDataSet, "Archivakte")
        objConnection.Close()
        objDataSet = Nothing
    End Sub
 
End Class