这个传导代码应当如何设置？

zuiweng

说明；1,“款式名称”里面设置了“外加工费”和“外加工费2”两个单价资料。
  2.“外协类别”里面设置了“内胆加工”和“锁眼”两个类别
  3.当在选择“外协类别”里的“锁眼”类别的时候，自动将“外加工费”的单价传导到“外协单价”中
4 。当选择“外协类别”里的“内胆加工”时，自动将“外加工费2”里的单价传导到“外协单价”中
5.现在只能传导“外加工费”（锁眼），另一个“外加工费2”的编码应当怎样编写，才能实现在选择不同的类别时，它能够自动的选择相应的单价 ？

以下是现在的代码：

Option Compare Database
Private Sub 外协类别_AfterUpdate()
On Error GoTo Err_ProductID_AfterUpdate
    Dim strFilter As String
   
   
    strFilter = "[款式名称ID] = " & Me!外协类别
   
   
    Me!外协单价 = DLookup("[外加工费]", "款式名称", strFilter)
Exit_ProductID_AfterUpdate:
    Exit Sub
Err_ProductID_AfterUpdate:
    MsgBox Err.Description
    Resume Exit_ProductID_AfterUpdate
End Sub