سؤال في الأمر Rs.find واستخدام البحث عن طريق الأدو ؟؟؟؟؟

Dim M As String
M = InputBox("ادخل الاسم الاول ", "search")
If Trim$(M) = "" Then
msgbox "يرجى التأكد من كتابه الاسم "
Exit Sub
End If rs.MoveFirst
rs.Find "customers_firstname='" + M + "'" If rs.EOF Then
msgbox "عفوا الاسم المستعلم عنه غير مسجل "
exit sub
end if 
' وهنا بقى حضرتك تبدأ نوزع البيانات على الفورم حسب الترتيب اللى حضرتك عامه ذى مثلا 
text1.text=customers!id
text2.text=customers!firstname
text3.text=customers!addrees
text4.text=customers!tel
tex5.text=customers!mob

أخى ميدو انا فهمة قصدك نقدر نستعلم عن البيانات عن طريق الا rs ونقدر نستخدم جمل الاستعلام او جمل sql على العموم نبدأ على rs غير ان rs.find متقدرش تستعلم عن حقلين ولو اردة ذلك يوجد بـ rs داله اسمها filter ليصبح شكل الكود هكذا

RS.MoveFirst
RS.Filter = "firstname='" & txtfirstname & "' and id=" & Trim(txtid) & ""
If RS.EOF Then MsgBox "not found data", vbExclamation: Exit Sub

وعلى فكره انا وضعة

id=" & Trim(txtid) & ""

لان هذا الحقل نوعه رقم ده الافتراضى بتاعه

ولا اخفى عليك هذه الطريقة ليست مجزية عن تجربة

لعلى اكون أخطأت عندما استخدمتها على العموم الطريقة الثانية جمل sql

If RS.State = 1 Then RS.Close
RS.Open "select * from cucard where firstname='" & txtfirstname & "' and id=" & Trim(txtid) & "", CN, adOpenDynamic, adLockPessimistic
If RS.EOF Then MsgBox "not found data", vbExclamation: Exit Sub

بالتوفيق ان شاء الله