Prooblem with DataReport

[smitavlsi]

Dear Sir
i have made a inventory project and facing some problem in Data Reports.i can not crystal reports.
i am sending you the code
Dim rs1 As New ADODB.Recordset
rs1.CursorLocation = adUseClient
rs1.Open "select itemname,sum(amount),sum(quantity),sum
(TaxCollection)from mainbilling where DeptName = '" &
Label1(0).Caption & "' and billingdate >=#" & Text1.Text
& &quot;# and billingdate <=#&quot; & Text2.Text & &quot;# group by
itemname&quot;, db, adOpenDynamic, adLockOptimistic
Set DataGrid1.DataSource = rs1.DataSource

this is the query and its working fine showing record in datagrid perfectly.but i want to showi in the report fromat.
I have many departments and subitems.
like:
Footlong
:-Bistro garden patty
aneer tikka
:-veggie delite
Drinks
epsi
:-coke
:-juices
salad
:-deli salad
:-Veg Salad
ect...i have to show depatmentwise item sale in the datareport..like this
-----------------------------------------------------
Footlong Quantity Amount Tax
----------------------------------------------------
Bistor garden patty 6 1200 112.78
Paneer tikka 10 1339 123.87
Veggie Delite 2 203 78.23
------------------------------------------------------
Drinks Quantity Amount Tax
------------------------------------------------------
coke 6 60 12.78
Pepse 10 100 13.87
Juice 2 50 28.23
------------------------------------------------------
wht should i do
plz help
Thanks and regs
Smita