你把这个倒过来好了
Dim adoConnectionX As New ADODB.Connection
adoConnectionX.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Data Source=localhost;DataBase=Northwind"
adoConnectionX.Execute "INSERT INTO OPENDATASOURCE('Microsoft.Jet.OLEDB.4.0','Data Source=d:\northwind.mdb')...[产品] ([产品].[产品名称],[产品].[供应商ID],[产品].[类别ID]) SELECT [Products].[ProductName],[Products].[SupplierID],[Products].[CategoryID] FROM [Products]"
Dim adoConnectionX As New ADODB.Connection
adoConnectionX.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Data Source=localhost;DataBase=Northwind"
adoConnectionX.Execute "INSERT INTO OPENDATASOURCE('Microsoft.Jet.OLEDB.4.0','Data Source=d:\northwind.mdb')...[产品] ([产品].[产品名称],[产品].[供应商ID],[产品].[类别ID]) SELECT [Products].[ProductName],[Products].[SupplierID],[Products].[CategoryID] FROM [Products]"
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货