Excel - Exportar datos de EXCEL a ACCESS 97

Private Sub CommandButton1_Click()

    Dim Db As DAO.Database

    Dim Ds As DAO.Recordset

    Dim Camino As String

    Dim MiBase As String

    Dim MiTabla As String

    MiBase = "BDHigienizacion.mdb"

    MiTabla = "GHigienizacion"

    Camino = Application.ThisWorkbook.Path & Application.PathSeparator & MiBase

    Set Db = DBEngine(0).OpenDatabase(Camino)

    Set Ds = Db.OpenRecordset(MiTabla, dbOpenSnapshot)

    Ds.AddNew

        Ds("Id") = 1

        Ds("FechaParte") = Hoja4.Cells(6, 2).Value

        'Idem para el resto de los campos de la base de datos

        '......

    Ds.Update

    Ds.Close

    Db.Close

End Sub

Private Sub CommandButton1_Click()

Dim Db As DAO.Database

Dim Ds As DAO.Recordset

Dim Camino As String

Dim MiBase As String

Dim MiTabla As String

MiBase = "BDHigienizacion.mdb"

MiTabla = "GHigienizacion"

Camino = Application.ThisWorkbook.Path & Application.PathSeparator & MiBase

debug.print camino  ' Aqui te da la ruta de que la Base debe estar en la misma ruta del excel podrias confirmar que este correcta..

Set Db = DBEngine(0).OpenDatabase(Camino)

Set Ds = Db.OpenRecordset(MiTabla, dbOpenSnapshot)

Ds.AddNew

Ds("Id") = 1

Ds("FechaParte") = Hoja4.Cells(6, 2).Value

'Idem para el resto de los campos de la base de datos

'......

Ds.Update

Ds.Close

Db.Close

End Sub