تعیین فیلد جستجو با کمبو باکس

[soheilbehro]

سلام دوستان
من می خوام فیلد جستجوام رو با استفاده از یه کمبو باکس تعیین کنم چون می خوام موراد جستجو زیاد باشه
من از دستور زیر استفاده کردم ولی جواب نمیده
کسی می تونه بگه اشکال این دستور کجاست!



Dim strfield As String
Dim strvalue As String
strvalue = "search.Text"
If Combo1.Text = "پسوند" Then
strfield = "pasvand"
End If
If Combo1.Text = "زمان" Then
strfield = "moddat"
End If


Adodc1.RecordSource = "SELECT * FROM domains WHERE '" & strfield & "' Like '" & strvalue & "%'"

[soheilbehro]

دوستان لطفا کمکم کنید
فکر نکنم سوال زیاد سختی باشه

[_behnam_]

اینجوری بزن

Adodc1.RecordSource = "SELECT * FROM domains WHERE " & strfield & " Like '" & strvalue & "%'"