Set adoPrimaryRS = New Recordset
 
adoPrimaryRS.Open "SHAPE {select_" & _
  "lngPNr,txtPBezeichnung1,txtPBezeichnung2,txtPBauherr,txtPBezug,dblPKosten,_
txtPFoto,memPBeschrieb,intPAusführung,intPObjektart from tabProjekt Order by_ _
lngPNr} AS ParentCMD APPEND ({select_ _
lngPNr,ingTNr,txtTBezeichnung,dblTKosten,dblTAnzahl,intTEinheit from _
tabTeilobjekt_ Order by ingTNr } AS ChildCMD RELATE lngPNr TO lngPNr) AS _
ChildCMD", db,_ adOpenStatic, adLockOptimistic
 
For Each oText In Me.txtFields
    Set oText.DataSource = adoPrimaryRS
Next
 
Set dbgBauteil.DataSource = adoPrimaryRS("ChildCMD").UnderlyingValue