Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim test = "11 506"
        Dim da As New OleDb.OleDbDataAdapter("Select kdnr, name, ort From" & _
          "stammdat where kdnr =" &  test, _
         "Provider=Microsoft.Jet.OLEDB.4.0;Data " & _
         "Source=|DataDirectory|\faktur.mdb")
        Dim dt As New DataTable("stamm")
        da.Fill(dt)
        dgv.DataSource = dt
 
        TextBox1.DataBindings.Add _
       (New Binding("Text", dt, "kdnr"))
    End Sub