Visual Basic - Leer datos específicos de Excel desde VB

Private Sub btnImportar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnImportar.Click

	Dim nombreArchivo As New String

	Dim Abrir As New OpenFileDialog

	Dim objConn As OleDbConnection

	Dim oleDA As OleDbDataAdapter

	Dim ds As DataSet

	Abrir.Filter = "Todos los archivos (*.XLS)|*.xls"

	If Abrir.ShowDialog = Windows.Forms.DialogResult.OK Then

		nombreArchivo=Abrir.FileName

	End If

	Try

		Dim connectionString As String = "Provider=Microsoft.ACE.Oledb.12.0;Data Source=" & nombreArchivo & ";Extended       Properties=""Excel 12.0;HDR=YES;IMEX=1"""

		objConn = New OleDbConnection(connectionString)

		oleDA = New OleDbDataAdapter("select * from [Reporte de Compac$]", objConn)

		ds = New DataSet()

		oleDA.Fill(ds)

		DataGridView2.DataSource = ds.Tables(0)

		ds.Dispose()

		oleDA.Dispose()

		objConn.Dispose()

	Catch ex As Exception

	End Try

End Sub

Private Sub ImportarExcel4(ByVal nombreArchivo As String)

	Dim EXL As Excel.Application

	EXL = New Excel.Application

	Dim W As Excel.Workbook

	W = EXL.Workbooks.Open(nombreArchivo)

	Dim S As Excel.Worksheet

	Dim i As Integer

	Dim c As Integer

	Dim A As String = "A"

	Dim F As String = "F"

	Dim cuenta As String

	Dim cargo As String

	Dim Celda As String

	Dim numRows As Integer

	c = 0

	S = W.Sheets("Reporte de Compac")

	numRows = S.Range("A65536").End(Excel.XlDirection.xlUp).Row

	For i = 10 To numRows

		Celda = A & i

		If S.Range(Celda).Font.Bold = True Then

			cuenta = S.Range(Celda).Value

			dgv.Rows.Add(cuenta)

		End If

	Next

	For i = 10 To (numRows - 9)

		Celda = F & i

		If S.Range(Celda).Font.Bold = True Then

			cargo = CDbl(S.Range(Celda).Value)

			dgv.Rows(c).Cells(1).Value = cargo

			c = c + 1

		End If

	Next

	S = Nothing

	W.Close()

	W = Nothing

	EXL = Nothing

End Sub