access窗体问题，通过输入商品代码，关联出商品其他信息，不止一款产品，但要求都在同一个打印页面显示，求帮助

'第一种方式，数组的方式

Dim rs As ADODB.Recordset

Dim arr, i As Integer

Dim sql As String

Set rs = New ADODB.Recordset

sql = "select * from 源数据 where 代码='" & Me.代码 & "'"

rs.Open sql, CurrentProject.Connection, adOpenKeyset, adLockOptimistic

 '将每个字段的值存到相应的控件里

arr = Array("代码", "商品名称", "商品规格", "计量单位", "数量", "计量单位件装数量", _

"单位", "库房")

For i = 1 To UBound(arr)

    Me.Controls(arr(i)).Value = rs.Fields(i)

Next i

rs.Close

'第二种方式，dlookup 方式

'On Error Resume Next

'Me.商品名称 = DLookup("商品名称", "源数据", "代码='" & Me.代码 & "'")

'Me.商品规格 = DLookup("商品规格", "源数据", "代码='" & Me.代码 & "'")

'Me.计量单位 = DLookup("计量单位", "源数据", "代码='" & Me.代码 & "'")

'Me.数量 = DLookup("数量", "源数据", "代码='" & Me.代码 & "'")

'Me.计量单位件装数量 = DLookup("计量单位件装数量", "源数据", "代码='" & Me.代码 & "'")

'Me.单位 = DLookup("单位", "源数据", "代码='" & Me.代码 & "'")

'Me.库房 = DLookup("库房", "源数据", "代码='" & Me.代码 & "'")

'