ODBC访问Access数据库,
如何枚举数据库中的表 ?

[解决办法]
procedure TForm1.Button1Click(Sender: TObject);
var
SL: TStringList;
begin
ADOConnection1.ConnectionString := 'Provider=MSDASQL.1;Password=123;Persist Security Info=True;User ID=admin;Data Source=testmdb ';
ADOConnection1.Open;
SL := TStringList.Create;
try
ADOConnection1.GetTableNames(SL);
ShowMessage( SL.Text );
finally
SL.Free;
end;
end;