如何判斷Access的表單是否有內容？

ADO元件可以作到嗎？

內容??
指的是筆數嗎??
在ADOQuery下完Select指令後
以以下判斷是否有資料即可：

if ADOQuery1.RecordCount > 0 then

//  Create a new project and
// add a TADOConnection (ADOConnection1), a TButton (Button1)
// ConnectionString = 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=XMain.mdb;Persist Security Info=False'
unit RTV_TABu;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, StdCtrls;
type
TForm1 = class(TForm)
ADOConnection1: TADOConnection;
Button1: TButton;

procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation

{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
rs:TADODataSet;
begin
caption:='';
// Get the Database Schema Information (Tables / Views)
//
rs := TADODataSet.Create(Self);
ADOConnection1.OpenSchema(siTables,EmptyParam,EmptyParam, rs);
//
// Field 0 contains the Database Name - ignore.
// Field 1 contains the Schema No - ignore.
//
while not rs.Eof do
begin
//if Pos('SYSTEM', UpperCase(rs.Fields[3].Value)) = 0 then
if rs.Fields[3].Value='TABLE' then
caption:=caption rs.Fields[2].AsString ' / ';//ShowMessage(rs.Fields[2].AsString)
rs.Next;
end;
rs.Close;
rs.Free;
end;
end.

------
What do we live for if not to make life less difficult for each other?