Visual Basic - Pasar informacion de EXCEL a VB (ACCESS)

Resulta que tengo una hoja de calculo con una serie de datos , bien lo que necesito es capturar los datos de la hoja de calculo desde VB y posteriormente grabarlos en una BD , el grabarlos no es problema , lo que me trae loco es como recoger la informacion del la hoja de EXCEL

Muchas Gracias por vuestra atencion ...

Hay dos formas de hacerlo es accediendo por medio de Visual Basic o directo de excel por medio de una macro este codigo es para usarlo en excel y para Visual Basic en este momento no lo tengo disponible si lo quieres mandame un correo y te mando un pequeño ejemplo.

Private Sub CommandButton1_Click()
Dim Celda As Long
Dim Base As DataBase
Dim Registro As Recordset

'abro la base de datos
Set Base = opendatabase("RutaBD.mdb", False, False)
dbengine.idle dbfreelocks
'abro la tabla
Set Registro = Base.OpenRecodset("NombreTabla", DbopenDynaset)
dbengine.idle dbfreelocks

Do While "A" & Celda <> "" 'Si la celda no tine valor termina
Celda = Celda + 1
Registro.AddNew
Registro!NombreCampo1 = Worksheets("Hoja").Range("A" & Celda).Value
Registro!NombreCampo2 = Worksheets("Hoja").Range("B" & Celda).Value
Regitro.Update
Loop

Registro.Close
Set Registro = Nothing
Base.Close
End Sub

Es todo amigo
Espero que te sirba y si tienes una pregunta no dudes en contactarme.