数据库A的表TableA导入数据库B中的表B (SQL2000 ; 表结构一样)

var str: string;
begin
str:='insert into Test01 select * FROM '
      +'OPENDATASOURCE( '
      +QuotedStr('SQLOLEDB')
      +', '
      +QuotedStr('Data Source=qingmu;User ID=sa;Password=sa')
      +').Northwind.dbo.Test01 ';

ADOConnection1.Execute(str);