Dim db As Connection
  Set db = New Connection
  db.CursorLocation = adUseClient
  db.Open "PROVIDER=MSDataShape;Data PROVIDER=Microsoft.Jet.OLEDB.4.0;Data" & _
    "Source=" + dbOrt
 
  Set adoPrimaryRS = New Recordset
  adoPrimaryRS.Open "SHAPE {select" & _
    "KundenNr,Name,Strasse,Ort,Plz,ProjektName,Telefon,Fax from Kunden Order by" & _
    "KundenNr} AS ParentCMD APPEND ({select" & _
    "KundenNr,Name,Firma,Funktion,Telefon from Ansprechpartner Order by" & _
    "KundenNr } AS ChildCMD RELATE KundenNr TO KundenNr) AS ChildCMD", db, _
    adOpenStatic, adLockOptimistic
 
  Dim oText As TextBox
  'Textfelder an Datenprovider binden
  For Each oText In Me.txtFields
    Set oText.DataSource = adoPrimaryRS
  Next
 
  Set grdDataGridAnsprech.DataSource = adoPrimaryRS("ChildCMD").UnderlyingValue