Dim conStr As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data" & _
          "Source=MeineDB.mdb"
        Dim conn As New OleDbConnection(conStr)
        Dim selStr As String = "SELECT * FROM Liste WHERE Name = '" & _
          TextBox4.Text & "'"
 
        da = New OleDbDataAdapter(selStr, conn)
        da.Fill(dt)
 
        BindingSource1.DataSource = dt
 
        '        TextBox4.DataBindings.Clear()
        '        TextBox5.DataBindings.Clear()
 
        TextBox4.DataBindings.Add("Text", BindingSource1, "Name")
        TextBox5.DataBindings.Add("Text", BindingSource1, "Ort", True, _
          DataSourceUpdateMode.OnPropertyChanged)