MSACESS 2003 DSUM Funktion

Hallo Freunde,

ich habe wieder mal ein "kleines" VBA Access 2003 Problem.
Habe einen Onlineshop gebastelt und nun möchte ich die ausgeliefertern wie auch die noch zu liefernden Artikel als Info per Email versenden.
Hierfür habe ich eine Access Tabelle im Hintergrund laufen welche wie folgt aussieht.

Tabelle:
"fakt"

Felder:
Aufrtagsnummer
Menge Original
Gelieferte Menge


Die Tabelle sieht zB wie folg aus:

Auftragsummer 10000-001
Menge Original: 100
Gelieferte Menge 30

Auftragsnummer 10000-002 (da 1. Teillieferung)
Menge Original: 100
Gelieferte Menge: 20

Auftragsnummer 10000-003 (da 2. Teillieferung)
Menge Original: 100
Gelieferte Menge: 50

In der Tabelle steht daa dann so:
Auftragsnummer Menge Original Menge Gelieferte Menge ZU LIEFERN
10000-001 100 100 30
10000-002 100 100 20
10000-003 100 100 50

Wie kann ich nun per VBA Script ermitteln welche Menge bei der jeweiligen Zeile noch zu liefern ist.
Habe es mit DSUM versucht zusammenzuzählen und dann die Differenz wieder zu ermittlen, aber komme leider nicht klar.

Hoffe ihr wisst was mein Problem ist. Ich denke ich muss hier eine Funktion schreiben, weis jedoch nicht, wie ich das angehen soll.

DANKE für eure Hilfe. - Bin leider Access "Banause"

Lg

SELECT Left([Auftragsnummer],5) AS Auftrag, 
               Cint(Max(Mid([Auftragsnummer],7,3))) AS Anzahl_Lieferungen, 
               Max([Original Menge]) AS Original_Menge, 
               Sum([Gelieferte Menge]) AS Gelieferte_Menge, 
               Max([Original Menge])-Sum([Gelieferte Menge]) AS Offene_Menge
FROM Fakt
GROUP BY Left([Auftragsnummer],5);

SELECT Left(a.[Auftragsnummer],5) AS Auftrag, 
             CInt(Mid(a.[Auftragsnummer],7,3)) AS Lieferung, 
             Max(a.[Original Menge]) AS Original_Menge, 
             Max(a.[Gelieferte Menge]) AS Gelieferte_Menge,
             Max(a.[Original Menge]) - sum(b.[Menge]) As Offene_Menge
FROM fakt AS a 
LEFT JOIN (select left([Auftragsnummer],5) As Auftrag, 
                             CInt(Mid([Auftragsnummer],7,3)) as Teil,
                             [Gelieferte Menge] As Menge 
                   from Fakt) as b ON left(a.[Auftragsnummer],5) = left(b.[Auftrag],5)  and b.[Teil] <= CInt(Mid(a.[Auftragsnummer],7,3))  
GROUP BY Left(a.[Auftragsnummer],5), CInt(Mid(a.[Auftragsnummer],7,3));

Dim sumMenge As Integer

sumMenge = DSum("[Gelieferte Menge]", "Fakt", "Left([Auftragsnummer],5) = Auftrag and Mid([Auftragsnummer],7,3) <= Lieferung")