最近要写一个打开多个数据表的程序，这个数据表是用SQL建立的
我的想法是：1。选中这个表所在的数据库，并显示库中所有表
            2。在几个列表中选出需要的这个表。
我想想法应该没有太大的问题吧，但是在第一步就出了问题
编译可以通过，但是在选择某个数据库的时候提示exe文件出现EOleException错误，无授权说明。。。。

我使用的是ADOConnection，ADOTable，DataSource，OpenDialog控件，加上一个用来显示路径的Edit和用来显示数据表名字的ListBox。
程序如下：

procedure TForm1.Button1Click(Sender: TObject);
var
access:string;
const
link_str='Provider=%s; Data Source=%s';
dataprovider='SQLOLEDB.1';
begin
 Opendialog1.FileName :='*.mdf';
  if Opendialog1.Execute then
  begin
    access:=Opendialog1.FileName ;
    edtopen.Text :=access;
    adoconnection1.Connected :=false;
    adoconnection1.ConnectionString :=format(link_str,[dataprovider,access]);
    adoconnection1.Connected :=true;
    adoconnection1.GetTableNames(ListBox1.Items,false);
  end;
end;

procedure TForm1.ListBox1Click(Sender: TObject);
begin
adotable1.Close ;
adotable1.TableName :=listbox1.Items.Strings[listbox1.itemindex];
adotable1.Open ;
end;

请大家帮忙看看啊，不胜感激了~~