查询程序问题

为什么下面这段程序如果数据源是sql server时运行正常,而如果是acess时运行出错,如果查询到数据类型是数据型的话就会出错.把数据类型改为文本型时,运行又能正常.谢谢!!!!
procedure TForm3.Button1Click(Sender: TObject);
var
i,jls:integer;
s:string;
begin
i:=combobox1.Items.IndexOf(combobox1.Text);
s:=dbgrid1.Columns[i].FieldName;
with database_form.DataModule1.gj_ADOQuery1 do
begin
close;
sql.Clear;
if combobox2.Text<>'like' then
    sql.Add('select * from gjb where '+dbgrid1.Columns[i].FieldName+''+combobox2.text+''''+edit1.Text+'''')
      else
         sql.Add('select * from gjb where '+dbgrid1.Columns[i].FieldName+' like''' +edit1.Text+'%''');
open;
jls:=database_form.DataModule1.gj_ADOQuery1.RecordCount;
edit1.Text:='';