Set rec = conn.Execute("Select" & _
  "Buchungen.[BuchungsNr],Veranstalter.[Veranstalter],Art.[Art] From" & _
  "<br>Buchungen INNER JOIN (Veranstalter INNER JOIN Art On" & _
  "Buchungen.[ArtNr]=Art.[ArtNr]) <br>On" & _
  "Buchungen.[VeranstalterNr]=Veranstalter.[VeranstalterNr] <br>WHERE" & _
  "Buchungen.[KundenNr] Like " & KundNr, adOpenForwardOnly + adLockReadOnly, 0)