请问窗体上的文本1数字+文本2数字代码怎样写请指教

Private Sub 编号_AfterUpdate()
On Error GoTo Err_编号_LostFocus
Dim StrTemp As String
    StrTemp = DLookup("库存1", "表1", "[编号]= '" & Me![编号] & "'")
    Me![库存1] = StrTemp
    StrTemp = DLookup("库存2", "表1", "[编号]= '" & Me![编号] & "'")
    Me![库存2] = StrTemp
    Me.合计 = CDbl(Me.库存1) + CDbl(Me.库存2)
Exit_编号_LostFocus:
    Exit Sub
Err_编号_LostFocus:
    MsgBox Err.Description
    Resume Exit_编号_LostFocus
End Sub