SELECT Q.Name, CCur(Sum(Q.SMenge*NZ(S.SPreis,Q.Preis))) AS Umsatz
FROM Kundenumsatz_unterabfrage AS Q LEFT JOIN Sonderpreise AS S ON (Q.K_Nr = _
  S.K_Nr) AND (Q.A_Nr = S.A_Nr)
WHERE (((Q.Datum)>#1/1/2007#))
GROUP BY Q.Name
ORDER BY Sum(Q.SMenge*NZ(S.SPreis,Q.Preis)) DESC;

  Set Conn = New ADODB.Connection
  Conn.CursorLocation = adUseClient
  Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & _
    "\lieferprog.mdb;"
 
  Set rs = New ADODB.Recordset
  rs.Open "SELECT * FROM Kundenumsatz", Conn, adOpenDynamic, adLockOptimistic