因为系统版本更换,MID函数错误,请指教

yyh740225

以前是WIN98，ACCESS2000，现在是WINXP，ACCESS2000没有变，但窗体的函数
出现错误，函数如下：
Private Sub 生产批号_灭菌日期__BeforeUpdate(Cancel As Integer)
a = Me.生产批号_灭菌日期_
b = "20" & Mid(a, 1, 2) & "年" & Mid(a, 3, 2) & "月" & Mid(a, 5, 2) & "日"
c = Format(b, "yyyy.mm.dd")
Me.检验日期 = c
d = DateSerial(Left([a], 2), Mid([a], 3, 2), Mid([a], 5, 2))
e = DateSerial(Year(d) + 3, Month(d), 0)
Me.失效年月 = Format(e, "yyyy.mm")
End Sub
错误信息：“MID 函数 找不到工程或库”点击确定后又出现一个引用窗口
提示“丢失：kodak Image Admin Control”

rcylbx

解决方法好像是工具-引用，中找到某一项回复引用，具体怎么操作记不太清楚了