[spyman]

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


هذا الكود الخاص بعرض الاسم
Private Sub Command1_Click()
xx = Text1.Text
Adodc1.RecordSource = " Select * From Query where name_s = ' " & Trim$(xx) & " ' "
Adodc1.CommandType = adCmdText
Adodc1.Refresh
End Sub