VB execl导入ACCESS(新手),该怎么处理

VB execl导入ACCESS(新手)
Dim adocn As ADODB.Connection
  Dim Cnstr As String
  Cnstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\qq\1231.mdb"
  Set adocn = New ADODB.Connection
  adocn.ConnectionString = Cnstr
  adocn.Open
  adocn.Execute " insert into [excel 8.0;database=c:\qq\1123.xls].[sheet1] select * from aaa"
  Set adocn = Nothing
c:\qq\1123.xls].[sheet1导入1231.mdb aaa错在哪里？

[解决办法]
try

adocn.Execute " insert into [sheet1$] in 'c:\qq\1123.xls' 'excel 8.0;' select * from aaa"

[解决办法]
http://blog.csdn.net/asftrhgjhkjlkttttttt/article/details/4914132