帮我用VB把EXCEL导入Access ?

1、表2很多表，表结构也不一致
2、可以全部读到数据库，表头是否保留（什么什么班级的）
3、才100分，有点少了，先把导入部分给你，导出部分再看情况！
Private Sub Command1_Click()
On Error Resume Next
Dim xlExcel As Excel.Application
Dim xlBo