ممكن اعرف ايه الغلط في الكود ده وعايز اعرف ايه الصح وايه الحل في اللغه العربيه في صندوق البحث
Private Sub Command5_Click()
Dim xxx
xxx = InputBox("enter name...")
Data1.RecordSource = " select * from table1 where name like '" & xxx & "*'"
Data1.Refresh
End Sub