vb中怎样将excel表导入到access中

Private   Sub   Command1_Click()  
      Text1.Text   =   App.Path   &   "/123.xls"           'EXCEL文件  
      Text2.Text   =   App.Path   &   "/123.mdb"           '数据库  
      Text3.Text   =   "sheet1"  
      Text4.Text   =   "sheet1"  
      Data1.DatabaseName   =   App.Path   &   "/123.mdb"  
   
      Dim   db   As   Database  
      Dim   sheet   As   String,   excelpath   As   String,   AccessPath   As   String,   AccessTable   As   String  
      AccessPath   =   Text2.Text                                                                         '数据库路径  
      excelpath   =   Text1.Text                                                                           '电子表格路经  
      AccessTable   =   Text4.Text                                                                       '数据库内表格  
      sheet   =