[Ahmed_Mansoor]

هذه هي الطريقة :

كود :

Adodc1.RecordSource = "Select * From Table1 Where Name='" & Trim$(Text1.Text) & "'"
Adodc1.Refresh

If Adodc1.Recordset.RecordCount > 0 Then
   MsgBox "الإسم موجود مسبقاً"
   Exit Sub
End If