乐博网lob.cn提示：调试环境为 vs2008 +  windows2003 / windows2008 / xp / vista
VB.Net把excel导入Access数据库的代码如下：

Imports Microsoft.VisualStudio.Tools.Applications.Runtime
Imports Excel = Microsoft.Office.Interop.Excel
Imports Office = Microsoft.Office.Core
Public Class Sheet1
    Private Sub Sheet1_Startup(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Startup
        AddMenuBar()
    End Sub
    Private Sub Sheet1_Shutdown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shutdown
    End Sub
    Dim MyXMLMenu As Office.CommandBarButton
    Dim MyTXTMenu As Office.CommandBarButton
    Dim MyMDBMenu As Office.CommandBarButton
    Private Sub AddMenuBar()
        Try
            Dim MyCommandBarPopup As Office.CommandBarPopup = Nothing
            Dim MyCommandBarMenu As Office.CommandBar = _
                CType(Application.CommandBars.ActiveMenuBar, Office.CommandBar)
            Dim MyControlsCount As Integer = MyCommandBarMenu.Controls.Count
            Dim missing = System.Reflection.Missing.Value
            MyCommandBarPopup = CType(MyCommandBarMenu.Controls.Add( _
                Office.MsoControlType.msoControlPopup, missing, missing, _
                MyControlsCount, True), Office.CommandBarPopup)
            If (MyCommandBarPopup IsNot Nothing) Then
                MyCommandBarPopup.Caption = "演示数据导入"
                MyXMLMenu = CType(MyCommandBarPopup.Controls.Add( _
                    Office.MsoControlType.msoControlButton, missing, missing, _
                    missing, True), Office.CommandBarButton)
                MyXMLMenu.Caption = "导入XML文件"
                MyXMLMenu.TooltipText = "导入指定的XML文件的内容"
                MyXMLMenu.FaceId = 65
                AddHandler MyXMLMenu.Click, AddressOf MyXMLMenuCommand_Click
                MyTXTMenu = CType(MyCommandBarPopup.Controls.Add( _
                    Office.MsoControlType.msoControlButton, missing, missing, _
                    missing, True), Office.CommandBarButton)
                MyTXTMenu.Caption = "导入文本文件"
                MyTXTMenu.TooltipText = "导入选择的文本文件的内容"
                MyTXTMenu.FaceId = 66
                AddHandler MyTXTMenu.Click, AddressOf MyTXTMenuCommand_Click
                MyMDBMenu = CType(MyCommandBarPopup.Controls.Add( _
                    Office.MsoControlType.msoControlButton, missing, missing, _
                    missing, True), Office.CommandBarButton)
                MyMDBMenu.Caption = "导入Access数据库"
                MyMDBMenu.TooltipText = "导入Northwind(Office 2000示例)数据库客户表中的数据库记录"
                MyMDBMenu.FaceId = 67
                AddHandler MyMDBMenu.Click, AddressOf MyMDBMenuCommand_Click
            End If
        Catch ex As Exception '更多.net源码和实例，来自乐博网 www.lob.cn
            MessageBox.Show(ex.Message)
        End Try
    End Sub
  
    '导入Access数据库
    Private Sub MyMDBMenuCommand_Click(ByVal Ctrl As Microsoft.Office.Core.CommandBarButton, ByRef CancelDefault As Boolean)
        Dim MyFileName As String = "G:\Northwind.mdb"
        Me.Application.Workbooks.OpenDatabase(MyFileName, "客户", _
            Excel.XlCmdType.xlCmdTable, True, Excel.XlImportDataAs.xlTable)
    End Sub
End Class