在EXCEL中怎么把A数据库a表里的数据 插入到 B数据库b表 里？

office2008

Sub 测试()

Dim cnn As New ADODB.Connection
  Dim sql As String

  cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;data Source=\\192.168.0.150\共享\系统数据.accdb;Jet OLEDB:Database Password=123456"

  sql = "insert into [MS Access;DATABASE=" & ThisWorkbook.Path & "\收银数据.accdb;PWD=123456;].[商品资料] select * from 商品资料"

cnn.Execute sql

  cnn.Close: Set cnn = Nothing

End Sub