如何自动往窗体内控件里填加数据？

我在入库记录里输了一些药，以后再输同样的药品，其规格、分类、单位都是一样的，于是我在窗体里输了药品名称后启用了更新后事件，事件的代码是这样的：
Private Sub 药品名称_AfterUpdate()
On Error Resume Next
Dim a As String
Dim b As String
Dim c As String
Dim cond As String
cond = "Me.药品名称='" & 入库记录.[药品名称] & "'"
a = DLookup("规格", "入库记录", cond)
b = DLookup("药品分类", "入库记录", cond)
c = DLookup("单位", "入库记录", cond)
Me.规格 = a
Me.药品分类 = b
Me.单位 = c
End Sub

结果运行时所真数据不对，请老师指点。谢谢！

点击下载此附件