جرب هذا الكود بدل الموجود لديك ...
If Me.CMBSERIAL.Column(0) = DLookup("IDD", "EMPDEV", "[IDD] = '" & Me.CMBSERIAL.Column(0) & "'") Then
Me.CMBSERIAL.Undo
Me.Undo
MsgBox "هذا الجهاز مسجل مسبقاً", vbInformation, "تنبيه التكرار"
Exit Sub
Else
MsgBox "تم"
End If