Visual Basic - Ayuda please..!! de Excel a Access

Hola ... alguien me podria decir como importar una hoja de excel a Access... desde tiempo de ejecucion, es decir sin ningun asistente.. que un procedimiento desarrollado en VB lo haga como el asistente.. la hoja de excel se importa tal cual... no tiene mas hojas el archivo.. solo es una... esto es muy facil con el asistente.. pero representa abrir la base de datos y eso es lo que no quiero.. quiero importarla desde un boton en VB.. sale ?? gracias..

'En Proyecto -> Referencias.. -> Microsoft Object 10 Library
'Pega un control data, por ejemplo, para enlazar con access

Set HojaExcel = New Excel.Application
HojaExcel.Application.Visible = False
HojaExcel.Workbooks.Open (NombreArchivo)

With HojaExcel

For vbLine = 1 To 10 'Leemos 10 registros de la tabla de excel
data1.recordset.addnew
data1.recordset.fields(0) = .Cells(vbLine,1)
data1.recordset.fields(1) = .Cells(vbLine,2)
data1.recordset.fields(2) = .Cells(vbLine,3)
data1.recordset.fields(3) = .Cells(vbLine,4)
data1.recordset.update
Next vbline
'Cerramos el libro
.Close
Set HojaExcel = Nothing
End with

s2

'En Proyecto -> Referencias.. -> Microsoft Object 10 Library
'Pega un control data, por ejemplo, para enlazar con access

Set HojaExcel = New Excel.Application
HojaExcel.Application.Visible = False
HojaExcel.Workbooks.Open (NombreArchivo)

With HojaExcel

For vbLine = 1 To 10 'Leemos 10 registros de la tabla de excel
data1.recordset.addnew
data1.recordset.fields(0) = .Cells(vbLine,1)
data1.recordset.fields(1) = .Cells(vbLine,2)
data1.recordset.fields(2) = .Cells(vbLine,3)
data1.recordset.fields(3) = .Cells(vbLine,4)
data1.recordset.update
Next vbline
'Cerramos el libro
.Close
Set HojaExcel = Nothing
End with

s2

'En Proyecto -> Referencias.. -> Microsoft Object 10 Library
'Pega un control data, por ejemplo, para enlazar con access

Set HojaExcel = New Excel.Application
HojaExcel.Application.Visible = False
HojaExcel.Workbooks.Open (NombreArchivo)

With HojaExcel

For vbLine = 1 To 10 'Leemos 10 registros de la tabla de excel
data1.recordset.addnew
data1.recordset.fields(0) = .Cells(vbLine,1)
data1.recordset.fields(1) = .Cells(vbLine,2)
data1.recordset.fields(2) = .Cells(vbLine,3)
data1.recordset.fields(3) = .Cells(vbLine,4)
data1.recordset.update
Next vbline
'Cerramos el libro
.Close
Set HojaExcel = Nothing
End with

s2

Algo no funcionó y al actualizar me he encontrado con 3 mensajes
Joer!!! y no los puedo borrar
Lo siento.