Optimering af script brugt i Access

Hej alle

Jeg har fået hjælp til at lave et script som går ind og opretter rækker i en tabel i Access, hvis de ikke allerede eksisterer i forvejen.
Scriptet udfører opgaven, men på så langsom vis at med det samme jeg skalerer datagrundlaget en smule op tager den over en uge at køre... Og derudover bliver scriptet ved med at køre selvom det egentlig er udført, hvilket kræver at jeg lukker databasen ned og åbner den igen...

Har I nogle eventuelle optimeringsmuligheder til scriptet vil jeg være utrolig taknemlig.

---
Option Compare Database

Const TabelNavn = "tbl_VareforbrugStep1"
Const Varetabel = "Varenummer"

Function OpretDummyDage_AlleVarer()
  Dim d As Date
  Dim Db As Database
  Dim DummyRst As Recordset
   
  Set Db = CurrentDb
  Set DummyRst = Db.OpenRecordset("tbl_VareforbrugStep1", dbOpenSnapshot)
  With DummyRst
    If Not .EOF Then
      Do
        OpretDummyDage (!Varenummer)
        .MoveNext
      Loop Until .EOF
    End If
    .Close
  End With
  Set DummyRst = Nothing
  Set Db = Nothing
End Function

Private Sub OpretDummyDage(Varenummer As String)
  DoCmd.SetWarnings False
  For d = Date - 365 To Date
    If IsNull(DLookup("[Fysisk dato]", "tbl_VareforbrugStep1", "[Fysisk dato]=#" & Format(d, "yyyy/mm/dd") & "# AND Varenummer='" & Varenummer & "'")) Then
      DoCmd.RunSQL ("INSERT INTO tbl_VareforbrugStep1 (Varenummer, [Fysisk dato], Vareforbrug) SELECT '" & Varenummer & "',#" & Format(d, "yyyy/mm/dd") & "#, 0")
    End If
  Next d
  DoCmd.SetWarnings True
End Sub

---

Kort forklaring til hvad scriptet gør.
Jeg har en tabel med forskellige varenumre som hver har deres antal vareforbrugstransaktioner pr. dato.
F.eks.
Varenummer      Dato                    Vareforbrug (antal)
12345                13-01-2016                          10
12345                13-06-2016                          30
54321                02-03-2016                            5
54321                01-04-2016                          50
Etc.

Scriptet går ind og laver en masse fiktive transaktionsdatoer (per varenummer) med 0 stk i vareforbrug på de datoer det seneste år hvor der IKKE er transaktioner. Det skal jeg bruge i forbindelse med aggregerede udregninger såsom gennemsnitlig forbrug det seneste år pr. varenummer, standardafvigelse pr. dag pr. varenummer det seneste år osv.
Min udfordring er at jeg har 2.600 varenumre som dette skal gøres på, hvilket vil ende med at scriptet sammen med de eksisterende entries i tabellen skal skabe omkring 1 mio entries.
Det mener jeg dog ikke bør tage fem dage at køre...
Har I nogle optimeringsideer?
Pft.!

/Louise