استفسار عن طريق الاسم

جربي هذه الروابط (فالموضوع مكرر)

1- افضل طرق البحث وكيفية التعامل معها بـ Data1 و ADO و HnHn

15 - المرجع الشامل لجمل SQL, GENIUS-IT

السلام عليكم

اتمنى ان يفيد هذا الكود بالغرض

Private Sub But_ser_Click()
هنا يتم ترتيب الاسماء
s1 = "SELECT name_ from tabel1 order by name_"
If rs.State = adStateOpen Then rs.Close
rs.Open s1, CN, 1, 3
هنا يتم البحث عن الاسم كاملاً او بداية الاسم
   Do While Not rs.EOF
	If Left$(rs!name_, Len(Text1.Text)) = Trim(Text1.Text) Then
	MsgBox ("okkkkkkkkkkkkkkkk")
	Exit Do
	End If
	   rs.MoveNext
	Loop
End Sub