If DCount("*", "产品信息", "产品图号='" & Me.产品图号 & "'") > 0 Then
         MsgBox "此数据已录入,请不要重复添加!"
         Exit Sub

     End If

翻译一下：

If DCount("*", "表名", "字段1='" & 当前窗体字段1 & "'"      ) > 0 Then
         MsgBox "此数据已录入,请不要重复添加!"
         Exit Sub

     End If

 DoCmd.OpenQuery "查询名称"