[princeofislam]

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

عندي الكود التالي 

كود :

If Not Combo3.Text = "Çáßá" Then Adodc1.RecordSource = "select * from kaf where  mynat ='" & Combo1.Text & "' and mystat='" & Combo2.Text & "'and mysex ='" & Combo3.Text & "'and myage Between " & Text121.Text & " AND " & Text131.Text & " Order By myage"

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

كود :

 rs.Filter = "xnum LIKE '" & Me.Text1.Text & "*'"

يعني استاذة كنت استخدم ادوات الربط الان اصبحت استخدم مكتبة 2.8

---

هذا الكود مش زابط معي والله

If Not Combo1.Text = "الكل" Then rs.Filter = "xnat LIKE '" & Combo1.Text & "'and xstat='" & Combo2.Text & "'and xsex='" & Combo3.Text & "'and xage Between " & Text121.Text & " AND " & Text131.Text & " Order By myage" * ""

Set DataGrid1.DataSource = rs