Visual Basic.NET - como exportar todas las hojas de un libro a access

Imports Excel = Microsoft.Office.Interop.Excel

Public Class ...

 Dim XLSAPP As Excel.Application = Nothing            ' Si no estan necessarios los eventos de Excel

    'Si no es abrido la hoja XLS

    Private Sub UnoPrcedimiento()

        XLSAPP = New Excel.Application

        XLSAPP.Visible = True

        XLSAPP.Workbooks.Open("D:\Tmp\ProbExcel\UnaHojaXLS.xls") 'abrir el archivo XLS

        XLSAPP.Sheets("Hoja1").Select()

        XLSAPP.Columns("B:B").Select()  ' por la columna B, ...

        XLSAPP.Selection.Find("74").Select()

' ... ... ...

' Aqui, puedes copiar los datos en Access con un connexion OLEDB.

Imports Excel = Microsoft.Office.Interop.Excel

Public Class FBase

    Dim XLSAPP As Excel.Application = Nothing

    Private Sub BExcel_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BExcel.Click

        XLSAPP = New Excel.Application

        XLSAPP.Visible = True

        XLSAPP.Workbooks.Open("D:\Tmp\ProbExcel\Fenêtres.ods") 'Test.xls")

        XLSAPP.Sheets("Feuil1").Select()

        XLSAPP.Range("B12").Select()

        MessageBox.Show(XLSAPP.ActiveCell.Value)

        End Sub