Visual Basic - Urgente: Importar de Excel a Access

Hola, a ver si me podeis ayudar, por favor.
Necesito importar una hoja de cálculo Excel a Access, a través de Visual Basic, claro. ¿Me podeis decir cómo se hace, por favor?

Un saludo y gracias por adelantado.

Mira yo utilizo esto para pasar de excel a access, espero te sirva, lo unico que tienes que tener en cuenta en que fila y columna empiezan los datos.

Nota: lo que yo hago es elegir el excel mediante un common dialog, pero si tu siempre vas a tener la misma ruta colocas esa.

On Error GoTo errores
Dim ApExcel As Variant
Dim xlApp As Excel.Application
Dim mySheet As Excel.Worksheet
Dim vlRuta As String
Dim ValorBus As Single
Dim i As Integer

Base.Execute ("delete from hojaprod")

Set ApExcel = CreateObject("Excel.Application")
ApExcel.Workbooks.Open RutaEx 'Ruta de donde se encuentra el archivo excel
Set mySheet = ApExcel.Worksheets(1)
i = 1
With mySheet
i = i + 1
Do While .Cells(i, 1) <> "" 'Empieza el Ciclo de la Columna A hacia abajo
Set REG = Base.OpenRecordset("select * from hojaprod")
REG.AddNew
REG!Planta = .Cells(i, 1)
REG!guia = .Cells(i, 2)
REG!letra = Trim(.Cells(i, 3))
REG.Update
i = i + 1
Loop
End With
ApExcel.Quit
Set ApExcel = Nothing

errores:
If Err.Number <> 0 Then
Set ApExcel = Nothing
MsgBox Err.Description, vbCritical, CStr(Err.Number)
Err.Clear
End If

Espero te sirva.