Dim cn As ADODB.Connection, rs As ADODB.Recordset, rsChild As ADODB.Recordset, rs2 As ADODB.Recordset
  Set cn = New ADODB.Connection
  cn.Open  "Provider=MSDATASHAPE;Data Provider=Microsoft.Jet.OLEDB.4 . 0 ;Data Source=NWIND.MDB"
  Set rs = New ADODB.Recordset
  rs.CursorLocation = adUseClient
  rs.Open  "SHAPE {SELECT * FROM Employees} AS Employees APPEND ({SELECT * FROM Orders} AS Orders RELATE EmployeeID TO EmployeeID)" , cn, adOpenStatic, adLockBatchOptimistic, adCmdText
'
' Edit the first Order for each Employee
'
  Do While Not rs.EOF
    Set rsChild = rs!Orders.Value
    If Not rsChild.EOF Then
    ' edit first record
      rsChild!Freight.Value = rsChild!Freight.Value *  1 . 1  ' increase freight by 10%
      rsChild.Update
    End If
    rs.MoveNext
  Loop
'
' To see all updated records
'
  Set rsChild = New ADODB.Recordset
  rsChild.Open  "SHAPE Orders" , cn, adOpenStatic, adLockBatchOptimistic, adCmdText
  rsChild.Filter = adFilterPendingRecords
  Do While Not rsChild.EOF
    Debug.Print rsChild!OrderID, rsChild!Employeeid, rsChild!CustomerID
    rsChild.MoveNext
  Loop
  Set rsChild = Nothing
  rs.CancelBatch         ' sample doesn't update data