<code>datensatz2.Open "select tblIHB.IHBBZ, tblIH.IHNAM, tblIH.IHVNAM," & _
  "tblIH.IHNR " & _
  "from (tblIH inner join tblIHGZ on tblIHGZ.IHGZIHIR = tblIH.IHID) inner join" & _
  "" & _
  "(tblIHB inner join tblIHG on tblIHB.IHBID = tblIHG.IHGIHBIR ) on " & _
  "tblIHGZ.IHGZIHGIR = tblIHG.IHGID where " & _
  "tblIHB.IHBBZ = <font color=red>'" & ident & "'"</font>, cnnIHIS, _
  adOpenStatic</code>