كيفية البحث في قواعد البيانات

ممكن تجرب الطريقة دي

Adodc1.Recordset.Find "ID='" & Text1.Text & "'", , adSearchForward, 1
If Adodc1.Recordset.EOF Then
	MsgBox " غير موجود"
Else
	Text1.Text = Adodc1.Recordset("ID")
	text2.Text = Adodc1.Recordset("Name")
End Sub