不会是没有加 分号吧?procedure TForm1.Button1Click(Sender: TObject);
var
  cn,rs:olevariant;
begin
  cn:=createoleobject('adodb.connection');
  rs:=createoleobject('adodb.recordset');  cn.open('Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Administrator\My Documents\订单入口1.mdb;Persist Security Info=False');
  cn.BeginTrans;
  rs.open('select * from authors',cn);  cn.CommitTrans;
  caption:=rs.fields[0];
  rs.close;
  cn.close;
end;