[asto]

عليك ان تنشئ قاعدة بيانات بواسطة الفيجوال بيسك اذن

من خلال القائمة add-ins ثم visual data manager

تابع الشرح من خلال
http://www.shattalarab.net/vb/iraq47990/

و هذا هو كود البحث اولا ضعه في زر الاضافة او اي كواند آخر

كود :

Data1.Recordset.OpenRecordset
Data1.Recordset.FindFirst "[word]='" & Trim$(Text1.Text) & "'"
If Not Data1.Recordset.NoMatch Then
ضع اوامر لتنفيذها عند الايجاد (لمنع الاضافة لا تكتب شيئا هنا)
else
ضع اوامر لتنفيذها عند عدم الايجاد (اوامر الاضافة هنا و يمكنك وضع اية اوامر اخرى)
End If