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