Visual Basic.NET - visualizar archivo excel en un formulario

Imports System.IO

Imports System.Data.OleDb

Imports Microsoft.Office.Interop

Imports Microsoft.Office.Interop.Excel

Private Sub AbrirExcel(RutaArchivoExcel As String, NombreHojaExcel As String, DGV As DataGridView)

        Dim AbrirExcel As New OpenFileDialog

        AbrirExcel.Title = "Abrir archivo de Excel"

        AbrirExcel.Filter = "Archivos de excel|*.xls;*.xlsx"

        If AbrirExcel.ShowDialog = System.Windows.Forms.DialogResult.OK Then

            Try

                Me.Cursor = Cursors.WaitCursor

                Dim ds As New DataSet()

                Dim connectionString As String = "Provider=Microsoft.ACE.OLEDB.12.0;" & "Data Source=" & RutaArchivoExcel & ";" & "Extended Properties=Excel 12.0;"

                Dim excelData As New OleDbDataAdapter("SELECT * FROM [" & NombreHojaExcel & "$]", connectionString)

                excelData.TableMappings.Add("Table", "ExcelSheet")

                excelData.Fill(ds)

                DGV.DataSource = ds.Tables(0)

                Me.Refresh()

                Me.Cursor = Cursors.Default

            Catch ex As Exception

                Me.Cursor = Cursors.Default

                MsgBox(ex.Message, MsgBoxStyle.Critical, "Error")

            End Try

        End If

    End Sub