Access数据库(30分)

怎么样写代码判断一个Access库有多少个数据表，并得到表的名称，最好有例子

procedure TForm1.Button1Click(Sender: TObject);
var
list:TStringlist;
i:Integer;
begin
adoconnection1.Open;
list:=TStringlist.Create;
try
adoconnection1.GetTableNames(list);
for i := 0 to list.Count-1 do
begin
listbox1.Items.Add(list);
end;
finally
list.Free;
end;

end;

多人接受答案了。