Visual Basic.NET - Importar de excel a vb.net

Public Function importarExcel(ByVal ruta As String, ByVal hoja As String, ByVal rango As String)

    Try

        'declarando las variables

        Dim MyConnection As System.Data.OleDb.OleDbConnection

        Dim DtSet As System.Data.DataSet

        Dim MyCommand As System.Data.OleDb.OleDbDataAdapter

        'declarando variable de conexión

        MyConnection = New System.Data.OleDb.OleDbConnection _

        ("provider=Microsoft.Jet.OLEDB.4.0;" & _

        " Data Source='" & ruta & "'; " & _

         "Extended Properties='Excel 8.0;HDR=NO'")

        'creando consulta para extraer contenido del archivo de excel y ejecutandola

        MyCommand = New System.Data.OleDb.OleDbDataAdapter _

            ("select * from [" & hoja & "$" & rango & "]", MyConnection)

        MyCommand.TableMappings.Add("Table", "TestTable")

        DtSet = New System.Data.DataSet

        MyCommand.Fill(DtSet)

        'tabla.DataSet = DtSet.

        'ubicando el resultado en el datagridview

        dgvDatos.DataSource = DtSet.Tables(0)

        'cerrando conexión

        MyConnection.Close()

    Catch ex As Exception

        'imprimiendo mensaje de error

        MsgBox(ex.ToString)

    End Try

    Return False

End Function

Dim oBook As Workbook = oExcel.Workbooks.Open(archivoExcel, , False)

oSheet = oBook.Worksheets("Report Name")

'Recorremos cada una de las celdas y guardamos su contenido en el datagridview correspondiente

For fila As Integer = 6 To 200

    fecha1 = oSheet.Range("B" & fila).Text

    If fecha1 = "" Then Exit For

    texto = oSheet.Range("C" & fila).Text

    debe = ValorPC(oSheet.Range("E" & fila).Text)

    haber = ValorPC(oSheet.Range("G" & fila).Text)

    saldo1 = ValorPC(oSheet.Range("I" & fila).Text)

    DataGridView1.Rows.Add(fecha1, texto, debe, haber, "", "", saldo1)

Next fila