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')"
 
'    MsgBox "Statistik Sql Abfrage wird an DB übergeben", vbOKOnly, "Hinweis"
    Set objRs = objDB.OpenRecordset(strSQL)
    objRs.MoveFirst
    DB2HTML.dbTableToHTML objRs, App.Path & "\lieferung.html", , , 37