关于Dlookup的查询问题求助

在“零件”表，设有“统一识别码”、“零件名称”等字段。窗体的文本框控件有:零件分类--text1、分类码--text2、零件编码--text3、零件名称--text4、统一识别码--text5等。
在窗体中录入新内容时，想通过dlookup查询确定是否有重复记录。也就是查找零件表里统一识别码前10位（也就是bm值）这一范围内的记录里，是否有相同名称的零件。

代码如下，但无法运行：
Dim bm,ID As String
bm=me.[text2]&me.[text3]
Me.[Text5].Value =bm&"-"&ID
if DLookup("零件名称", "零件", "left(统一识别码,10)=left(Me.[Text5],10)")=me.[text4] then
Me.[Text4].SetFocus
MsgBox "此记录已录入"
end if

问题：
1、截取字符串进行比较的代码如何写？以上的dlookup句错在哪里？
2、如果按变量进行比较，代码又如何写？

请各位赐教。谢谢！