一个非常奇怪的问题，有关ADOTABLE的，请高手进来看看代码，解决后马上结帐。

Question

出错提示是什么，要不你就升级一下ado试一下

Answer 1

这个是DELPHI自身的BUG，打个ADO的补丁就可以了。

Answer 2

procedure TForm1.FormCreate(Sender: TObject);
begin
  CoInitialize(nil);
  notebook1.pageindex := 0;
  ado.connectionstring := ' Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + extractfiledir(application.exename) + '\data\db1.mdb; ' + 'Persist Security Info=False';
  ado.connected := true;
  adotable1.tablename := 'dwbm';
  adotable1.active := true;
  adotable1.first;
  while not adotable1.eof do
  begin
    combobox1.items.add(table1.fieldbyname('dwmc').asstring);
    adotable1.next;
  end;
  adotable1.Last;
end;procedure TForm1.FormDestroy(Sender: TObject);
begin  CoUninitialize;end;