>Data2.RecordSource = "select a.DocNo, a.ItemNo, b.ItemName, " _
> & " a.Qty, a.Rate, a.Qty * a.Rate as ItemValue " _
> & " from OrderDet a, Items b " _
> & " where a.ItemNo = b.ItemNo " _
> & " and a.DocNo = '" & Data1.Recordset![DocNo] & "'"
>Data2.Refresh

Can you create a query in Access and get it to update?