'DB öffnen
    ModuleDB.OpenConnection (App.Path & "\tmr-daten.mdb")
    'SQL-String erstellen
    strSQL = "TRANSFORM Sum(tgesendet.gesendet) AS Summevongesendet " _
        & "SELECT schlnr as Schlüssel, ort as Absender " _
        & "FROM tMeldeamt, tgesendet " _
        & "WHERE tMeldeamt.id_meld=tgesendet.id_meld " _
        & "GROUP BY schlnr , ort " _
        & "PIVOT Format([datum],'yyyy_mm_dd')"
    'Recordset öffnen mit SQL-String
    Set objRs = objDB.OpenRecordset(strSQL)
    objRs.MoveFirst
    'Recordset an DB2HTML übergeben
    DB2HTML.dbTableToHTML objRs, App.Path _
    & "\lieferung.html", "Datenlieferung", "Lieferung der Kundendaten", 37