Help On A Report With Dates

I have a tblCatalogue with fields packetNo (as integer), sendDate, shipDate and deliverDate (as date).
How can I make a report to show for each month how many packets I have sent, how many I shipped and how many I delivered ?

I have tried 3 separate queries using QBE
FIRST QUERY
the first field defined as GroupA: Format([tblCatalogue].[sendDate];"mmm yyyy")
and the second field defdined packetNo with Total set to Count

SECOND QUERY
the first field defined as GroupB: Format([tblCatalogue].[shipDate];"mmm yyyy")
and the second field defdined packetNo with Total set to Count

AND THIRD QUERY
the first field defined as GroupC: Format([tblCatalogue].[deliverDate];"mmm yyyy")
and the second field defdined packetNo with Total set to Count

Each of the queries gives me what I want for each month, like :
SEP 2004 20
OCT 2004 15
NOV 2004 3

What I really need though is to have something like:
Packets sent Packets Delivered Packets Shipped
SEP 2004 20 6 25
OCT 2004 15 8 30
NOV 2004 3 5 15

I have tried to achieve what I need using the following Function, but ended nowhere:

Public resultMonth(12) As String

Public Function Send() As Long
Dim sqlSend As String
Dim rsSend As Recordset
Dim dbSend As Database
Dim sendDate As Date
Dim monthSend, dayFrom, dayTo As Integer

On Error Resume Next
For monthStat = 1 To 12
If monthStat = (1 Or 3 Or 5 Or 7 Or 8 Or 10 Or 12) Then
dayTo = 31
ElseIf monthStat = (4 Or 6 Or 9 Or 11) Then
dayTo = 30
ElseIf (monthStat = 2 And Int(Year(Now) / 4) = (Year(Now) / 4)) Then
dayTo = 28
ElseIf (monthStat = 2 And Int(Year(Now) / 4) <> (Year(Now) / 4)) Then
dayTo = 29
End If
Set dbSend = CurrentDb
sqlStat = " SELECT compul FROM tblCatalogue " & _
" WHERE sendDate BETWEEN # " & Year(Now) & " / " & monthSend & " / 01 # " & _
" AND # " & Year(Now) & " / " & monthSend & " / " & dayTo & " # "
Set rsSend = dbStat.OpenRecordset(sqlSend, dbOpenSnapshot)
If Not rsSend.EOF Then
rsSend.MoveLast
If rsSend.RecordCount > 0 Then
resultMonth(monthSend) = rsSend.RecordCount
End If
End If
Next monthSend
End Function

Public Function test()
Send()For I = 1 To 12
MsgBox (I & " = " & resultMonth(I))
Next I
End Function

The above code gives me the correct numbers but again I cannot get a report with all packets send, shipped or delivered for each month of the year.

May be I am on the wrong track. Can I have some guidance how to achieve my report ?