se alguém tentou obrigado ... mas eu consegui
eu coloquei o seguinte código no evento reposition do data control do pedido
Private Sub Data1_Reposition()
Data2.RecordSource = "SELECT Pedidos_itens.[Numero do pedido], Pedidos_itens.[Codigo do produto], Pedidos_itens.Quantidade, Pedidos_itens.Valor From Pedidos_itens WHERE (((Pedidos_itens.[Numero do pedido])=" & Data1.Recordset.Fields(0).Value & "));"
Data2.Refresh
End Sub
eu gostaria de linkar ou fitrar, mas assim ficou legalzinho