以下为导出：

For   Each   SQL   In   CurrentDb.TableDefs  
  If   UCase(Mid(SQL.Name,   1,   2))   <>   "MS"   Then  
  dd="select   *   into   [excel   8.0;database=d:\temp\"   &   SQL.Name   &".xls]."  
  &   SQL.Name   &   "from   "   &SQL.Name  
  currentdb.execute   dd  
  End   If  
  Next  
  or  
  select   *   into   [excel   8.0;database=d:\temp\123.xls].dd   from   tt

以下为导入：

select * into bbb from [excel 8.0;database=c:\bz.xls].[bz$ ]

在SQLServer中执行
SELECT * into bmk
FROM OpenDataSource( 'Microsoft.Jet.OLEDB.4.0',
'Data Source="e:\share";User ID=Admin;Password=;Extended properties=dBase 5.0')...bmk
这样就可以把e:\share中的bmk.dbf表导入到Sqlserver中，
速度是最快的
把压箱底的方法都告诉大家
在Form上放一个ADOConnection,连结指向目标Access库
比如txt文件在c:\temp\aaaa.txt
就执行
ADOConnection.Connected := True;
ADOConnection.Execute('Select * Into abcd From [Text;Database=c:\temp].aaaa.txt');
就一切Ok了,这个方法一定行的，我好不容易才研究出来的
有了这两个例子，异构数据库之间导数据的问题就举一反三，迎刃而解了。

把Excel导入到Access中,同txt类似
select * into &lt;table name&gt; from [excel 8.0;database=&lt;filename&gt;].[&lt;sheetname&gt;$ ]