如何使用vb.net将excel文件传输到数据库访问？

Question

我有3个按钮，用于将数据从excell文件传输到access数据库。这是windows窗体的界面

第一个按钮用于打开对话框openfile以选择文件exel

第二个用于打开excel文件并存储到数据表。

和第三个按钮用于传输要访问的Excel数据。

这是

的代码

第一个按钮

Private Sub cmdGetExcel_Click(sender As System.Object, e As System.EventArgs) Handles cmdGetExcel.Click
        Try
            Dim fd As OpenFileDialog = New OpenFileDialog()
            Dim strFileName As String

            fd.Title = "Open File Dialog"
            fd.InitialDirectory = "C:\"
            fd.Filter = "Excel files(*.xls)|*.xls"
            fd.FilterIndex = 2
            fd.RestoreDirectory = True


            If fd.ShowDialog() = DialogResult.OK Then
                strFileName = fd.FileName
                path = fd.FileName
                Text1.Text = path

            Else



            End If

        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try

    End Sub

这是一个代码 第二个按钮

 Private Sub OpenDatabase_Click(sender As System.Object, e As System.EventArgs) Handles OpenDatabase.Click
        Try

            Dim connectexcelstring As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source='" & Text1.Text & "';" & _
                 "Extended Properties=""Excel 8.0;HDR=yes"""
            Dim con As OleDbConnection = New OleDbConnection(connectexcelstring)

            con.Open()

            Dim query As String = "Select * from [Sheet1$]"

            Dim excelcmd As OleDbCommand = New OleDbCommand(query, con)


            dt.Load(excelcmd.ExecuteReader())

            Dim rowData As String = ""
            Dim i = 0

            For Each row As DataRow In dt.Rows
                For Each column As DataColumn In dt.Columns()
                    rowData = rowData & column.ColumnName & "=" & row(column) & " "
                Next
                rowData = rowData & vbNewLine & vbNewLine
            Next



            MessageBox.Show(rowData)

            MsgBox("Destination Database has been open")

        Catch ex As Exception

            MessageBox.Show(ex.Message)
        End Try
    End Sub

这是第三个按钮，（转移按钮）

 Private Sub TransferExcelFile2Database_Click(sender As System.Object, e As System.EventArgs) Handles TransferExcelFile2Database.Click

    End Sub

我不知道如何在转移按钮中传输excel文件，

任何想法？