请教个位前辈以下代码怎样写:

在主窗体组合框选定编号子窗体上显示和该编号有关的字段内容

我这样写只显示一行我要显示多行

Private Sub 订单编号_AfterUpdate()

On Error GoTo Err_订单编号_LostFocus
Dim StrTemp As String
    StrTemp = DLookup("产品编号", "客户订单历史", "[订单编号]= '" & Me![订单编号] & "'")
    Me![产品编号] = StrTemp
   Exit_订单编号_LostFocus:
    Exit Sub
Err_订单编号_LostFocus:
    MsgBox Err.Description
    Resume Exit_订单编号_LostFocus
End Sub

表中一个编号下有多个行比如：

产品编号       物料编号       

900000001      100000001

900000001      100000002

900000001      100000003

900000001      100000004

900000001      100000005

等，我要它和这个编号有关的都显示出来

请指教