有一段代码,运行是提示错误,请帮忙看一下?(50分)

var<br> &nbsp;ExpertSearchFrm: TExpertSearchFrm;<br> &nbsp;str1 :string;<br>implementation<br><br>uses Main,ExpertSearchRep;<br><br>procedure TExpertSearchFrm.Button1Click(Sender: TObject);<br><br>begin<br> &nbsp;str1:='select * from Expert where '+combobox1.Text+'='+''''+trim(edit1.Text)+'''';<br> &nbsp;adocommand1.CommandText:=str1;<br> &nbsp;search1.Recordset:=adocommand1.Execute;<br> &nbsp;search1.Open;<br><br> &nbsp;frmExpertSearchRep :=TfrmExpertSearchRep.Create(application);<br><br> &nbsp;with frmExpertSearchRep.ADOTable1 do<br> &nbsp;begin<br> &nbsp; &nbsp;close;<br> &nbsp; &nbsp;connection:=frmMain.ADOConnection1;<br> &nbsp; &nbsp;TableName:='Expert';<br> &nbsp; &nbsp;Filtered:=false;<br> &nbsp; &nbsp;Filter:='str1';<br> &nbsp; &nbsp;Filtered:=true;<br> &nbsp; &nbsp;open;<br> &nbsp;end;<br>提示以下错误:<br>Project ExpertExtract.exe raised exception class EOLeException with message '参数类型不正确，或不在可以接受的范围之内，或与其他冲突。' process stopped. Use Step or Run to continue.<br><br>我跟踪了一下,错误出现在最下面那个open,被执行的时候.

Filter:='str1';这个有问题。

filter是过滤，怎么可以赋值为SQL啊

[]

就是就是，Filter是设置过滤条件的，肯定不能赋SQL语句撒，只要where字段后面的条件就可以了

filter := combobox1.Text+'='+''''+trim(edit1.Text)+'''';

接受答案了.