VB execl导入ACCESS(中级问题）

多个execl的格式:
  XXXX清单

姓名：XXX
-------------------
ID1 数据
1 12
2 34
。。。

合计：XXX


ACCESS的格式

ID1 数据
1 12
2 34

如何execl导入ACCESS？
我编的程序：
  adocn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\111\11.mdb; Persist Security Info=False"
  adocn.Open
adocn.Execute " insert into ab select * from [sheet1$] in 'c:\111\123.xls' 'excel 8.0;'"
出错。
我想把整个EXECL导入ACCESS，然后判断ID和数据是否合法，不合法的删除。以前用VFP就是这样做，现在不知如何改？

不用导，可以把Excel象操作Access一样操作。

VB code

Dim adoCnn As new ADODB.Connection
Dim r As new ADODB.Recordset
adoCnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=C:\1.xls;Extended Properties='Excel 8.0;HDR=Yes;IMEX=1'"
r.Open "Select * From [" & sheet1$ & "]" , adoCnn, adOpenKeyset, adLockOptimistic