你把这个倒过来好了
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]"