帮看看根据两个控件自动编号的语句错在哪里？

fller00

根据  课程编码  和  年份两个控件自动编号  ，在课程内部排序，如企业管理 的QYGL2006001 ，人力资源开发的RLKF2006001语句如下：



Private Sub 年份_AfterUpdate()
On Error GoTo Err_命令10_Click
MsgBox "Me.过度 = Me.培训安排窗体.培训安排表录入.课程编码 & Me.培训安排窗体.培训安排表录入.年份"
Dim strA As String
Dim intB As Integer

intB = Right(DMax("场次ID", "查询1"), 3)
Me.场次ID = Me.培训安排窗体.培训安排表录入.课程编码 & Me.培训安排窗体.培训安排表录入.年份 & Format(intB + 1, "000")
  Exit Sub
Exit_命令10_Click:
intB = 0
Me.场次ID = Me.培训安排窗体.培训安排表录入.课程编码 & Me.培训安排窗体.培训安排表录入.年份 & Format(intB + 1, "000")
Exit Sub
Err_命令10_Click:
    Resume Exit_命令10_Click
End Sub

烦请斑竹和各位高手路过指点一二   

fller00

请  一点通  大侠还有别的高人帮忙看看啊