下面这段程序多次运行就会报错？

[lpt]

void TForm1::ShowItem(AnsiString sParm1)
{
//TODO: Add your source code here
AnsiString sSql;

sSql = "select parmid 文种ID,year 年度,qzh 全宗号,wz 文种名称, \
wjks 文件开始数,wjzs 文件结束数,dh 代码,zz 作者, \
qx 保管期限,qxdm 保管期限代码,fname 文件名前缀 \
from fda_wzfl \
where year = '" + Trim(sParm1) + "'";

try
{
ADOQuery1->Close();
ADOQuery1->SQL->Clear();
ADOQuery1->SQL->Add(sSql);
ADOQuery1->Open();
}
catch(Exception &e)
{
Application->MessageBox(e.Message.c_str(), "提示信息", IDOK);
}
}

第一次运行没有问题，当sSql是一个没有结果时再运行这个函数就会报“BOF 或 EOF 有一个为真，或者当前记录己删除，所需的操作要求一个当前的记录。”在DELPHI里面好像不会出错。

[Chxis]

if builder5就下ado补丁

[jishiping]

你用的是BCB5吧，BCB5的ADO控件有Bug，需要打补丁。

[jishiping]

补丁的下载地址：
ftp://ftpc.borland.com/pub/bcppbuilder/devsupport/patches/bcpp5/BCB5EntUpdate1.exe
ftp://ftpc.borland.com/pub/bcppbuilder/devsupport/patches/bcpp5/BCB5ADOUpgrade1.exe
先运行BCB5EntUpdate1.exe，然后再运行BCB5ADOUpgrade1.exe

[lpt]

地球人都知道呀！就我不知道，不过这是我的第一个BCB程序。
谢谢各位，好了马上付钱。