مشكله بكود البحث بالاسم

الاخوه مشرفى ومديرى واعضاء منتدانا الرائع

تحيه طيبة وبعد

اتمنى ان تكونوا اولا جميعا بخير

الكود التالى يوضح عملية البحث بالرقم

Private Sub sersh_cod_Click() 'بحث بكود 
'On Error Resume Next
	If code_no.Text = "" Then
		MsgBox "خطــــأ ..من فضلك التاكد", vbOKOnly, "Wrong"
		Exit Sub
	End If

	Dim RS As New ADODB.Recordset
	Sql = "SELECT * FROM info WHERE code_no =" & code_no.Text & " "
	Set RS = Cn.Execute(Sql)
	If RS.EOF Then MsgBox "بالبحث لم يستدل  ربما يكون غير مسجلا ", vbExclamation: Exit Sub
	'If RS.EOF Then MsgBox "بالبحث لم يستدل على هذا البيان ", vbExclamation: Exit Sub

10
	'On Error Resume Next
	code_no.Text = RS.Fields("code_no")
	name_patient.Text = RS.Fields("name_patient")
	Address.Text = RS.Fields("address")
	age.Text = RS.Fields("age")
	occupation.Text = RS.Fields("occupation")
	social_situation.Text = RS.Fields("social_situation")
	Years_of_marriage.Text = RS.Fields("Years_of_marriage")
	number_of_children.Text = RS.Fields("number_of_children")

	RS.Close
	Set RS = Nothing
End Sub

اتمنى حل المشكله مع شرح الفرق بين البحث بالرقم والاسم لنستفيد جميعا

كما اتمنى نفس الكود بالبحث عن ان يكون الاسم يحتوى على بمعنى اكتب احمد فى خانة البحث يخرج لى جميع الاسماء التى تحتوى على اسم احمد لو امكن

وفقكم الله ودائما اقدم الشكر للجميع

فى انتظار ردودكم

سلام الله عليكم