Exportar a Access

Hola amigos, otra vez preguntando.
Tengo un boton en una hoja de excel con el siguiente codigo, que lo que
hace es guardar e imprimir la hoja con los parametros seleccionados.
Private Sub CommandButton1_Click()
If CheckBox1 = False Then
ActiveWorkbook.SaveAs "C:\XXXXXX\ADMINISTRACION\ALBARANES\ALBARANES
2006\" & Sheets("Factura").Range("I13").Text & " , " &
Sheets("Factura").Range("C14").Text & " " &
Sheets("Factura").Range("D14").Text& & " , " & " Fecha " &
Sheets("Factura").Range("D13").Text
Else
ActiveWorkbook.SaveAs "C:\XXXXXX\ADMINISTRACION\ALBARANES\FACTURAS
2006\" & Sheets("Factura").Range("I13").Text & " , " &
Sheets("Factura").Range("C14").Text & " " &
Sheets("Factura").Range("D14").Text& & " , " & " Fecha " &
Sheets("Factura").Range("D13").Text
End If
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Application.Quit
ThisWorkbook.Close savechanges:=False
End Sub

Mi pregunta es como puedo adicionar código para que me guarde en una
base de datos ya creada en Access, en la tabla factura 3 valores de la
hoja de excel, que serian el cliente, el nº de factura y la fecha.

He recogido y e intentado adecuar este codigo que aparece en las news,
pero no me funciona. Me da error. Atributo no valido en sub o funcion.

Ya he creado una referencia a la librería "Microsoft DAO X.x Object
Library"
Aqui va el codigo.

Public Sub AddBDPuc()

Public BD As Database
Public Reg As Recordset


Set BD = OpenDatabase(ThisWorkbook.Path & "\xxxxxxx.mdb")
Set Reg = BD.OpenRecordset(Name:="Factura", Type:=dbOpenDynaset)


'Ingreso del nuevo reg. a la BD
With Reg
.AddNew
.Fields("Nombre").Value = Range("I13")
.Fields("Fecha").Value = Range("D13")
.Fields("Factura").Value = Range("D14")
.Update
End With


BD.Close
End Sub
End Sub

Gracias por vuestra ayuda y perdon por tanto rollo.