Private Sub Command1_Click()
Dim kdnr
kdnr = Trim(txtKdNr.Text) & "%"
Label1.Caption = Len(kdnr)
  adoPrimaryRS.Open "SELECT kunden.k_nr, kunden.k_kreditor_jn," & _
    "adressen.ad_name, adressen.ad_namenszusatz_1, adressen.ad_strasse," & _
    "adressen.ad_laender_kn, adressen.ad_plz, adressen.ad_ort," & _
    "adressen.ad_telefon, " & _
  "adressen.ad_fax FROM kunden INNER JOIN adressen ON kunden.k_adress_id1 =" & _
  "adressen.ad_id GROUP BY kunden.k_nr, kunden.k_kreditor_jn, adressen.ad_name," & _
  "adressen.ad_namenszusatz_1, adressen.ad_strasse, " & _
  "adressen.ad_laender_kn, adressen.ad_plz, adressen.ad_ort," & _
  "adressen.ad_telefon HAVING ((k_nr LIKE 'kdnr%') AND ((k_kreditor_jn)='J')" & _
  "AND (ad_name LIKE 'P%'))"
 
 
  If Not adoPrimaryRS.EOF Then
    Me.txtKdNr.Text = adoPrimaryRS!k_nr
    Me.txtName.Text = adoPrimaryRS!ad_name
    Me.txtStrasse.Text = adoPrimaryRS!ad_strasse
    Me.txtOrt.Text = adoPrimaryRS!ad_ort
    Me.txtPlz.Text = adoPrimaryRS!ad_plz
  End If
 
 
  adoPrimaryRS.Close
End Sub