Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) _
      Handles Button4.Click
 
        Dim conStr As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data" & _
          "Source=C:\temp\MeineDB.mdb"
        Dim conn As New OleDbConnection(conStr)
        Dim selStr As String = "SELECT * FROM Liste WHERE Name = '" & _
          TextBox4.Text & "'"
 
        da = New OleDbDataAdapter(selStr, conn)
 
        Dim cb As OleDbCommandBuilder
        cb = New OleDbCommandBuilder(da)
        dt = New DataTable("DBupdate")
 
        da.Fill(dt)
 
        TextBox4.Text = (dt.Rows(0)("AnzeigeName"))
        TextBox5.Text = (dt.Rows(0)("Ort"))
 
 
    End Sub
 
    Private Sub Button5_Click(sender As System.Object, e As System.EventArgs) _
      Handles Button5.Click
 
        dt.Rows(0)("Ort") = TextBox5.Text
        da.Update(dt)
 
    End Sub