منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

Private Sub DataCombo1_Change()
On Error Resume Next
Dim x As String
x = DataCombo1
Adodc3.RecordSource = " select * from mm where ad like '" & x & "%'"
Adodc3.CommandType = adCmdText
Adodc3.Refresh

End Sub

شكرا اخى الكريم وزادك الله علما