مساعده فى كود تعديل

السلام عليكم ورحمة الله وبركاته

اخوننا الاعزاء هذا كود يقوم بتعديل سجلات عميل

 Dim Rs10 As New ADODB.Recordset
	Dim Sql10 As String
	Sql10 = " SELECT * FROM agsat WHERE StNo like '" & Text1.Text & "'and name_sr= '" & Combo_ser.Text & "'"
	Rs10.Open Sql10, Cn, adOpenDynamic, adLockOptimistic
	For I = 1 To RecordCount - 1
		Rs10.Fields("elhala") = elhala.Text
	Next I
	Rs10.Update
	Rs10.Close
	Set Rs10 = Nothing

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

اشكركم جميعا

السلام عليكم ورحمة الله وبركاته