Visual Basic - extraer datos de una planilla excel

necesito saber como puedo extraer los datos de una planilla excel, queria saber si esto se puede hacer usando ODBC, estos datos luego los quieromanipular para pasarlos a una tabla en access.

si me pueden ayudar estare muy agradecido.

Esta es una subrutina que usa Excel, acces, espero te sirva.
Atte.,

no olvides crear antes una planilla en excel en blanco para abrirla cuando la solicites.

Dim xl, xlsheet As Object

Private Sub abre_archivo()
ProgressBar1.Value = 1
Command1.Enabled = False
pazo = True
archivo = CommonDialog1.FileName
Set xl = CreateObject("Excel.Application")
xl.Workbooks.Open (archivo)
xl.Worksheets("Itemizado").Activate ' Activa una shett específica
xl.Visible = False
xl.ActiveSheet.Cells(1, 1).Value = "Grabado....."
xl.ActiveSheet.Cells(1, 2).Value = Date
tabla.MoveFirst
xl.ActiveSheet.Cells(1, 3).Value = tabla("monto_basico")
xl.ActiveSheet.Cells(1, 4).Value = tabla("numeroctto")
xl.ActiveSheet.Cells(1, 5).Value = tabla("licitacion")
xl.ActiveSheet.Cells(1, 6).Value = tabla("pep")
xl.ActiveSheet.Cells(1, 7).Value = tabla("grafo")
xl.ActiveSheet.Cells(1, 8).Value = tabla("operacion")
xl.ActiveSheet.Cells(1, 9).Value = tabla("descripcion_contrato")
xl.ActiveSheet.Cells(1, 16).Value = tabla("api")

xl.ActiveSheet.Cells(1, 10).Value = Text5.Text
xl.ActiveSheet.Cells(1, 11).Value = Text6.Text

xl.ActiveSheet.Cells(1, 12).Value = Text8.Text
xl.ActiveSheet.Cells(1, 13).Value = Text9.Text
xl.ActiveSheet.Cells(1, 14).Value = Text10.Text
xl.ActiveSheet.Cells(1, 15).Value = Text11.Text%0