How to import Excel data to Gridview in VB.Net

I want to Import all Excel into GridView using vb, but only import one

This is the Example I use for Import:

Imports System.Data.OleDb
 Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
        Try
            Dim conn As OleDbConnection
            Dim dta As OleDbDataAdapter
            Dim dts As DataSet
            Dim Excel As String
            Dim OpenFileDialog As New OpenFileDialog
            OpenFileDialog.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.MyDocuments
            OpenFileDialog.Filter = "All Files (*.*)|*.*|Excel Files (*.xlsx)|*.xlsx|Xls Files (*.xls)|*.xls"
            If OpenFileDialog.ShowDialog(Me) = System.Windows.Forms.DialogResult.OK Then
                Dim fi As New IO.FileInfo(OpenFileDialog.FileName)
                Dim Filename As String = OpenFileDialog.FileName
                Excel = fi.FullName
                conn = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + Excel + "; Extended Properties=Excel 12.0;")
                dta = New OleDbDataAdapter("select * from [Sheet$]", conn)
                dts = New DataSet
                dta.Fill(dts, "[Sheet$]")
                GridControl1.DataSource = dts
                GridControl1.DataMember = "[Sheet$]"
                conn.Close()
            End If
        Catch ex As Exception

        End Try
    End Sub

Does it work selecting all Excel Files?