ارجو شرح كود منع التكرار عند ادخال البيانات

السلام عليكم ورحمة الله وبركاته

انا اعمل على مشروع صغير ولكن واجهتني مشكله هو عند ادخال رقم السند وهو موجود في القاعده مسبقا واضغط على حفظ تاتيني رسالة تم الحفظ

ولكن في الحقيقه لم يتم الحفظ لان حقل ال snd اساسي ولا يقبل التكرار

فحاولت ان اجد كود لمنع التكرار واظهار ؤسالة الرقم موجود مسبقا اذا الرقم موجود اساسا في القاعده

وهذا كود الفورم تبع ادخال البيانات

Set DB = OpenDatabase(App.Path & "\db3.mdb", False, False, ";pwd=")
Set DB = OpenDatabase(App.Path & "\db3.mdb", True, False, ";pwd=")
On Error Resume Next
Set tb = DB.OpenRecordset(" select * from tabel1 where pict='" & Picture1.Picture & "'")
If tb.RecordCount = 0 Then
	DB.Execute ("insert into tabel1 (a2,a3,pict,snddate,enddate,snd,price,dion,ishtrak,ftrh,mdh,notes) values ('" & Text2.Text & "','" & Text3.Text & "','" & Text4.Text & "','" & Text6.Text & "','" & Text7.Text & "','" & Text8.Text & "','" & Text9.Text & "','" & Text10.Text & "','" & Combo3.Text & "','" & Combo2.Text & "','" & Combo1.Text & "','" & Text11.Text & "')")
	MsgBox "Êã ÍÝÙ ÇáãÔÊÑß ÇáÌÏíÏ ", vbOKOnly + vbMsgBoxRtlReading + vbMsgBoxRight, "ÅÊãÇã ÚãáíÉ ÇáÍÝÙ"
	DB.Close

	Command7.Enabled = True


Else
	MsgBox "áÇíãßä ÇáÍÝÙ ", vbMsgBoxRight + vbMsgBoxRtlReading + vbOKOnly + vbInformation, "ÚãáíÉÇáÍÝÙ"
End If

وشكرا لكم