ADOQuery2.Close;
ADOQuery2.SQL.Clear;
ADOQuery2.SQL.Add('select * from a_doc where bh='''+Trim(Edtbh.Text)+'''');
ADOQuery2.Open;
if ADOQuery2.RecordCount>0 then
begin
application.MessageBox('编号重复！','提示信息',mb_ok+mb_iconinformation);
Edtbh.SetFocus;
exit;
end;

Str_S:='Insert into a_doc (bh,mc)values('+Trim(Edtbh.Text)+','+Trim(Edtmc.Text)+')';
ADOQuery2.Close;// 出错
ADOQuery2.SQL.Clear;
ADOQuery2.SQL.Add(Str_S);
ADOQuery2.ExecSQL;
运行出现错误提示：
Either Eof or Bof is True,or the Current record has been deleted.Requeseted opration requires a Current record .

字段bh,mc是什么类型？把
Str_S:='Insert into a_doc (bh,mc)values('+Trim(Edtbh.Text)+','+Trim(Edtmc.Text)+')';改为下面的看看
Str_S:='Insert into a_doc (bh,mc)values('+#39+Trim(Edtbh.Text)+#39+'，’+#39+Trim(Edtmc.Text)+#39+‘)';

楼上的。。请问#39是什么意思？？

chr(39)