Llenar DataGridView Con Archivo Excel

[Carlojas]

Compañeros buenas tardes, tengo el siguiente inconveniente estoy intentando cargar un Datagrid con el contenido de un archivo de excel si hago el procedimiento con un archivo excel 2003 no hay inconveniente pero si lo intento hacer con un archivo excel 2007 hay parece un mensaje de error "La tabla externa no tiene el formato esperado." el código que utilizo para dicho procedimiento es el siguiente:

Código vb:

Dim Ruta As String
        buscador.ShowDialog()
        Ruta = buscador.FileName
        If Path.GetExtension(Ruta) = ".xls" Or Path.GetExtension(Ruta) = ".xlsx" Then
            Try
                Dim Conexion As New OleDb.OleDbConnection
                Dim Adaptador As New OleDbDataAdapter
                Dim CadenaConexion = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                        "Data Source=" + Ruta + ";" + "Extended Properties=Excel 8.0;"
                Conexion = New OleDb.OleDbConnection(CadenaConexion)
                Adaptador = New OleDb.OleDbDataAdapter("SELECT * FROM [Hoja1$]", Conexion)
                Sdataset = New DataSet()
                Adaptador.Fill(Sdataset, "Hoja1$")
                Sdatatable = Sdataset.Tables(0)
                Me.grid_listas.DataSource = Sdatatable
                Me.grid_listas.Font = New Font("Tahoma", 12, FontStyle.Regular, GraphicsUnit.Pixel)
                Me.grid_listas.ColumnHeadersDefaultCellStyle.Font = New Font("Tahoma", 12, FontStyle.Bold, GraphicsUnit.Pixel)
                Me.grid_listas.Columns(1).Width = 100
                Me.grid_listas.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
                Me.grid_listas.Columns(2).Width = 80
            Catch ex As Exception
                MessageBox.Show(ex.Message)
            End Try
        Else
            MessageBox.Show("Archivo No Válido", "Excel To Grid", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
        End If
 

Tengo instalado el office 2007 en mi PC

Saludos.