سؤال مصور يحتاج شخص خبير!

dim sqls
sqls=("select * from [tabl] where labl.fild = '" & Text1 & "' ")
	Adodc1.RecordSource = SQLs
	Adodc2.Refresh
 If Adodc1.Recordset.RecordCount > 0 Then
  text2.text = "موجود"
else
text2.text = "غير موجود "
end if

حيث ان كلمة teblتعني اسم الجدول و fild اسم الحقل

وفقك الله

ذاكر كتب:

Adodc2.Refresh

اقصد

Adodc1.Refresh