我是新手:ADO 问题？

Question

procedure TForm1.Button4Click(Sender: TObject);
var curdir:string;
begin
curdir:=GetCurrentDir;
ADOC.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+curdir+'\bengfa.mdb;Persist Security Info=False';
adoc.Connected:=true;
ADOC.Open('BengFa','bengFa');
ADOQ.SQL.Add('CREATE TABLE bengFa.tb1(ind smallint, NAME CHAR(15))');
adoq.Active:=true;
Adoq.ExecSQL;
ADOQ.Close;
end;
调试时显示：Project ??.exe raised class EOleException with message'当前提供程序不支持从单一执行返回多个纪录集。’process stopped.use step or Run to continue.
运行时显示：ADOQ: CommandText does not return a result set.

Answer 1

把adoq.Active:=true;屏蔽掉！！！