принимать ваш textbox назван txt_SerialNum, и кнопка командование названа cmd_CheckSerialNum, тогда Кодий могло посмотреть подобие:
Приватное Sub cmd_CheckSerialNum_Click
если isnull (DLOOKUP («серийное Num», «tblDestroyed»,» [серийное Num] = ««& _SerialNum me.txt &»» ")) = ложно после этого
msgbox «это будет поврежденная часть!»
Закончитесь если
Закончите подводную лодку