Visual Basic - como migrar de excel a access desde visual??

hola!

por favor, podrían pasarme un ejemplo de como migrar datos que están en excel, a una tabla de bd en access desde visual

gracias

Dim libroexcel as Object
Dim hojaexcel as Object

Set libroexcel = GetObject(rutaarchivo)
libroexcel.Application.Workbooks.Open rutaarchivo
Set libroexcel = GetObject(rutaarchivo)
Set hojaexcel = libroexcel.Worksheets("Hoja1")

A partir de aqui puedes aplicar las propiedades y metodos de una hoja de
excel por ejemplo:

hojaexcel.Cells(1, 1).Value = "hola"


saludos cordiales....
Un abrazo...