Private Sub cmdSuchStarten_Click(sender As Object, e As EventArgs) Handles _
  cmdSuchStarten.Click
        If cmbSuchWo.Text = "Kundennummer" Then
            suchen = txtSuchen.Text
            Dim da As New OleDb.OleDbDataAdapter("Select kdnr, name, plz, ort," & _
              "strasse From stammdat where kdnr =" & "'" & suchen & "'", _
                       "Provider=Microsoft.Jet.OLEDB.4.0;Data " & _
                       "Source=|DataDirectory|\faktur.mdb")
            Dim dt As New DataTable("Kunde")
            da.Fill(dt)
 
 
            txtKdnr.DataBindings.Add("Text", dt, "kdnr")
            txtName.DataBindings.Add("Text", dt, "name")
            txtPlz.DataBindings.Add("Text", dt, "plz")
            txtOrt.DataBindings.Add("Text", dt, "ort")
            txtStrasse.DataBindings.Add("Text", dt, "strasse")
        End If
        grbSuch.Visible = False
 
    End Sub